主讲人：张志MVP
2003-2013连续10年荣获微软最有价值专家(MVP)
主讲人：张志MVP
主讲人介绍：2003-2013连续10年荣获微软最有价值专家(MVP)
▲ ShellExecute 自定义函数
'ShellExecute函数二次封装，以简化使用
'输入参数File可以是文件名，网页地址或命令行
Public Function ShellExecute(Command As Variant, Optional Parameters As String)
If Len(Parameters) = 0 Then
Parameters = vbNullString
End If
ApiShellExecute Application.hWndAccessApp, "Open", Command, Parameters, vbNullString, 1
End Function
