常用得VBA 函数
···
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Public Declare PtrSafe Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'文件是否村咋
Function IsFileExists(ByVal strFileName As String) As Boolean
If Dir(strFileName, 16) <> Empty Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function
'多功能
Function test_00()
'count the row。统计行数
Count_A = ThisWorkbook.Worksheets(“Summary”).Range(“A1048576”).End(xlUp).Row + 1
'del 删除
ThisWorkbook.Worksheets(“Summary”).Range(“K2:L200”).Clear
ThisWorkbook.Worksheets(“Sheet2”).Cells.Delete
'del file 删除文件
Kill Target_path & “” & “n