Sub OnClick(ByVal Item)
Dim fso,myfile
Set fso = CreateObject("s cripting.FileSystemObject")
Set MyFile = fso.GetFile("d:\\data.xlsx")
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
'objExcelApp.Visible = True
objExcelApp.Workbooks.Open MyFile
'上面的程序段是为了打开d盘excel文件
这是打开excel文件的部分你直接用这部分代替你的对应部分，我用的2007的excel你要注意格式。