Private Sub CommandButton1_Click()
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Set ExcelApp = CreateObject("Excel.Application")
excelfilepath = Application.ActivePresentation.Path & "\" & "e.xls"
'此处e.xls为ppt文件夹下的excel文件名
ExcelApp.Workbooks.Open excelfilepath, ReadOnly:=False
Set ExcelBook = ExcelApp.Workbooks.Open(excelfilepath)
ExcelApp.Visible = True
ExcelApp.Worksheets(2).Activate
'此处的2为想要打开的sheet几
End Sub
转载于:https://blog.51cto.com/xiaoxushushu/929138