读书人

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

发布时间: 2012-03-06 20:47:55 作者: rapoo

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

读书人网 >VB

热点推荐