批处理之家 - Powered by Discuz! Board

标题: VBS如何操作EXCEL [打印本页]

作者: changepll 时间: 2008-9-16 18:28 标题: VBS如何操作EXCEL

小白一个.做报表时.经常需要把数据复制到另一个表格中,很是麻烦!
可不可以实现这样一个功能:A.xls中的表1的C380:E480复制到B.xls中的表2的C380:E480???

作者: youxi01 时间: 2008-9-16 18:44

绝对可以
不过对excel函数不是很熟，你去专门的excel论坛问问吧

作者: zqz0012005 时间: 2008-9-16 19:53

未测试，使用前请做好备份

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.DisplayAlerts = false

Set objWorkbook1 = objExcel.Workbooks.Open("C:\a.xls")
Set objWorksheet1 = objWorkbook1.Worksheets(1)

Set objWorkbook2 = objExcel.Workbooks.Open("C:\b.xls")
Set objWorksheet2 = objWorkbook2.Worksheets(1)

objWorksheet2.Cells(3,380).Value = objWorksheet1.Cells(3,380).Value
objWorksheet2.Cells(5,480).Value = objWorksheet1.Cells(5,480).Value
objWorkbook2.Save

objExcel.quit
复制代码

作者: BatHome 时间: 2008-9-16 19:55

　　上excelhome论坛去问问吧，那里有好几个微软的MVP，地址是：http://club.excelhome.net/。

作者: Batcher 时间: 2008-9-16 22:30

建议楼主自学VBA

欢迎光临批处理之家 (http://bbs.bathome.net/)