vbs文件能否修改另一个excel中的内容?
我想建一个后缀名为vbs的文件,在运行此文件时,会修改D:\data.xls文件中
Worksheets("MSI")B列第5行的内容。
怎样实现?
[解决办法]
给你一个例子参考
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