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
用超链接啊
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024