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