VBS如何操作EXCEL

changepll

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

youxi01

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

zqz0012005

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

1. Set objExcel = CreateObject("Excel.Application")
   
2. objExcel.Visible = false
   
3. objExcel.DisplayAlerts = false
   
4. 
   
5. Set objWorkbook1 = objExcel.Workbooks.Open("C:\a.xls")
   
6. Set objWorksheet1 = objWorkbook1.Worksheets(1)
   
7. 
   
8. Set objWorkbook2 = objExcel.Workbooks.Open("C:\b.xls")
   
9. Set objWorksheet2 = objWorkbook2.Worksheets(1)
   
10. 
    
11. objWorksheet2.Cells(3,380).Value = objWorksheet1.Cells(3,380).Value
    
12. objWorksheet2.Cells(5,480).Value = objWorksheet1.Cells(5,480).Value
    
13. objWorkbook2.Save
    
14. 
    
15. objExcel.quit

复制代码

BatHome

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

Batcher

建议楼主自学VBA