常用得VBA 函数

最新推荐文章于 2024-07-10 13:37:23 发布

robot_大菜鸟

最新推荐文章于 2024-07-10 13:37:23 发布

阅读量433

点赞数

分类专栏： VBA 文章标签： VBA

本文链接：https://blog.csdn.net/weixin_45498306/article/details/128250576

版权

本文介绍了多个实用的VBA函数，包括检查文件是否存在、执行系统命令、等待、复制文件、打开链接、读取文本文件、解析XML、更新Access数据库以及正则表达式操作等，旨在提升VBA编程效率。

摘要由CSDN通过智能技术生成

···

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