Shell 只能调用可执行文件。函数声明：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函数调用：Public Sub ShellFile(ByVal strFile As String) Dim rtn As Long, hWnd As Long On Error Resume Next rtn = ShellExecute(hWnd, "OPEN", strFile, "", "", 1)End Sub通过SheetFile可以自动启动对应的程序并打开文档。
