'判断文件是否存在
Dim objFSO
Set objFSO = CreateObject("s cripting.FileSystemObject")
If objFSO.FileExists("c:\ExcelExample.xls") Then
MsgBox "file OK"
Else
msgbox "file err"
End If



'显示EXCEL文件

Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

objExcelApp.Workbooks.Open "c:\ExcelExample.xls"