ppt用vba打开excel

Question

在PPT中建立一个按钮，我想知道怎么用VBA自动打开一个Excell，然后保存，然后自动关闭excell！

Answer 1

Private Sub CommandButton1_CLick()
dim app as object, wb as object
set app = createobject("Excel.application")
app.visible = true
set wb = app.Workbooks.open("D:\xx.xls") '打开指定路径的工作簿
wb.save '保存Excel
app.quit '关闭Excel
End Sub本回答被提问者和网友采纳

Answer 2

用超链接啊