[编程交流] 从E打开模板文件

Option Explicit
Declare 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 OpenAnyFile(FileToOpen As String)
    
   Call ShellExecute(0, "Open", FileToOpen & vbNullString, _
   vbNullString, vbNullString, 1)
    
End Function
Sub Example()
    
   Call OpenAnyFile("I:\Support\Drafting\Drawing Templates\Skid.dwt")
    
End Sub