vbs文件能否修改另一个excel中的内容？

Question

我想建一个后缀名为vbs的文件，在运行此文件时，会修改D:\data.xls文件中
Worksheets("MSI")B列第5行的内容。
怎样实现？

Answer 1

给你一个例子参考Private Sub CommandButton1_Click()
    Dim xlapp1 As Excel.Application
    Dim xlbook1 As Excel.Workbook
    Dim xlsheet1 As Excel.Worksheet    Dim xlapp2 As Excel.Application
    Dim xlbook2 As Excel.Workbook
    Dim xlsheet2 As Excel.Worksheet    Set xlapp1 = CreateObject("Excel.Application")
    Set xlapp2 = CreateObject("Excel.Application")    Set xlbook1 = xlapp1.Workbooks.Open("d:\test1.xls")
    Set xlbook2 = xlapp2.Workbooks.Add    Set xlsheet1 = xlbook1.Worksheets(1)
    Set xlsheet2 = xlbook2.Worksheets(1)    xlsheet2.Cells(1, 1) = xlsheet1.Cells(1, 1)    xlsheet2.SaveAs "d:\test2.xls"
    xlapp2.Quit
    Set xlapp2 = Nothing
    xlapp1.Quit
    Set xlapp1 = Nothing
End Sub

Answer 2

jhone99,你的是新增的文件
Set xlbook2 = xlapp2.Workbooks.Add 
如果我想修改已经存在的Excel文件内容，应该怎样实现呢？

Answer 3

xlapp1 、xlbook1 等就是打开一个 .xls 文件，也可以对打开的文件进行修改啊。
修改完后，xlbook1.Close true 就可以保存所作更改。