10 2017 档案

vba oledb 读取excel的数据
摘要：Sub test_oledb() Dim objconn As ADODB.Connection Dim objrs As ADODB.Recordset Set objconn = New ADODB.Connection objconn.Open "provider=Microsoft.ACE. 阅读全文
posted @ 2017-10-17 10:57 屎壳螂 阅读(1285) 评论(0) 推荐(0)
vba 杂记2
摘要：'检测地址中是否有回车换行 '用系统函数，这个方法可以清除所有非打印字符 addr = Application.WorksheetFunction.Clean(addr) '清除一个换行回车符 addr = Replace(addr, Chr(10), "") addr = Replace(addr 阅读全文
posted @ 2017-10-16 17:38 屎壳螂 阅读(154) 评论(0) 推荐(0)
bat 杂记
摘要：@echo off taskkill /f /im excel.exe choice /t 1 /d y /n >nul set mypath= "" "%~dp0\fbl.xlsm" echo %mypath% start %mypath% @echo off taskkill /f /im ex 阅读全文
posted @ 2017-10-13 18:12 屎壳螂 阅读(109) 评论(0) 推荐(0)
vba 杂记
摘要：Public Function GetClipboardText() Dim a As New DataObject a.GetFromClipboard GetClipboardText = a.GetText End Function Sub CopyStr(ByVal str As Strin 阅读全文
posted @ 2017-10-13 18:11 屎壳螂 阅读(399) 评论(0) 推荐(0)
vba 新建进程且窗口置顶
摘要：Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Priv 阅读全文
posted @ 2017-10-12 23:58 屎壳螂 阅读(1370) 评论(0) 推荐(1)