随手做的一个,你可以参考
'首先在工程菜单里引用excel
Dim Xlapp As New Excel.Application
Dim Xlbook As Excel.Workbook
Private Sub Command1_Click() ’手动修改后报表保存和另存
Xlbook.Save
Xlbook.SaveAs "E:\11.xlsx"
Xlapp.Quit
Set Xlapp = Nothing
Set Xlbook = Nothing
End Sub
Private Sub Command2_Click() ’打开报表
Set Xlbook = Xlapp.Workbooks.Open("E:\1.xlsx")
Xlapp.Visible = True
End Sub
[此贴子已经被作者于2018-11-19 14:26编辑过]