如何利用VB保存已经修改过的EXCEL表格中的数据

随手做的一个，你可以参考
'首先在工程菜单里引用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编辑过]