'声明

Private 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

'调用函数打开外部文件

ShellExecute Me.hWnd, "open", "D:\abc.docx", vbNullString, vbNullString, 5

说明：

ShellExecute函数原型：

HINSTANCE ShellExecute( 
　　　　HWND hwnd,　　　　　　　　　 '父窗口句柄 
　　　　LPCTSTR lpOperation,　　　　'操作,"open","print","explore" 
　　　　LPCTSTR lpFile,　　　　　　　'文件名,前面可加路径 
　　　　LPCTSTR lpParameters,　　　　'参数 
　　　　LPCTSTR lpDirectory,　　　　 '默认文件夹 
　　　　INT nShowCmd　　　　　　　　'显示方式 

); 

显示方式有：

　Public Const SW_HIDE = 0 
　Public Const SW_SHOWNORMAL = 1 
　Public Const SW_SHOWMINIMIZED = 2 
　Public Const SW_SHOWMAXIMIZED = 3 
　Public Const SW_MAXIMIZE = 3 
　Public Const SW_SHOW = 5 
　Public Const SW_MINIMIZE = 6