屎壳螂

摘要： Sub test_oledb() Dim objconn As ADODB.Connection Dim objrs As ADODB.Recordset Set objconn = New ADODB.Connection objconn.Open "provider=Microsoft.ACE. 阅读全文

摘要： '检测地址中是否有回车换行 '用系统函数，这个方法可以清除所有非打印字符 addr = Application.WorksheetFunction.Clean(addr) '清除一个换行回车符 addr = Replace(addr, Chr(10), "") addr = Replace(addr 阅读全文

摘要： @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 阅读全文

摘要： Public Function GetClipboardText() Dim a As New DataObject a.GetFromClipboard GetClipboardText = a.GetText End Function Sub CopyStr(ByVal str As Strin 阅读全文

摘要： Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Priv 阅读全文

摘要： =IF(COUNTIF(B:B,A1)>0,A1,"") a列，填写内容的最后一行 endRow = Sheet24.Range("a65536").End(xlUp).Row 取sheet最后一行，包括格式， Sheet1.UsedRange.Rows.Count 弹出窗口 MsgBox shtM 阅读全文

摘要： Sub find() endRow = Sheet24.Range("a65536").End(xlUp).Row For rowindex = 1 To endRow keyvalue = Sheet24.Cells(rowindex, 1) FindFile = "C:\TEMP\sn.xlsx 阅读全文

摘要： Public Sub SendMail() Dim objAccount As Object Dim objApp As Object 'Outlook.Application ' If Not CheckData Then' Exit Sub' End If'' If MsgBox(shtMess 阅读全文

摘要： 我想做一个sql server 的dba ，可惜在这个城市招聘sql server dba的职位基本没有。于是我进入了现在这个公司，每天不知道干嘛，好象有事情，好像又没有事情，领导一会安排看oracle,一会安排看gis的数据类型我感到迷茫。。30多岁的人聊，我想去考个ocp认证，又干净力不从心。。 阅读全文