···
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 & “” & “new_LDS_PN.xml”
Shell “taskkill /f /im AcroRd32.exe”
'sleep time 等待时间
Sleep 1000
'copy file 复制文件
store_path = ThisWorkbook.Worksheets(“Sheet1”).Range(“D6”).Value & “\1.exe”
file_run = ThisWorkbook.Path & “\1.exe”
FileCopy store_path, file_run
'copy from climp
Set MyData = New DataObject
MyData.GetFromClipboard
'open link 打开文件link
Range(“A” & i).Activate
ActiveCell.Hyperlinks(1).Follow
Application.Wait Now + TimeValue(“00:00:01”)
'Array
Dim s_array() As String