首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vbs文件能否修改另一个excel中的内容?该如何处理

2012-03-06 
vbs文件能否修改另一个excel中的内容?我想建一个后缀名为vbs的文件,在运行此文件时,会修改D:\data.xls文件

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

热点排行