批处理之家 » VBS求助&讨论 » VBS如何操作EXCEL

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 2

帖子: 5
积分: 180
技术: 0
捐助: 0
注册时间: 2008-8-12

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2008-9-16 18:28 | 只看该作者

VBS如何操作EXCEL

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

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

2楼

发表于 2008-9-16 18:44 | 只看该作者

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

Rank: 8 Rank: 8

帖子: 1069
积分: 12123
技术: 38
捐助: 0
注册时间: 2008-5-10

3楼

发表于 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
复制代码

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

Rank: 12

帖子: 63
积分: 457
技术: 1
捐助: 0
注册时间: 2007-10-26

4楼

发表于 2008-9-16 19:55 | 只看该作者

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

Rank: 12

帖子: 14796
积分: 45971
技术: 847
捐助: 745
注册时间: 2008-6-9

5楼

发表于 2008-9-16 22:30 | 只看该作者

建议楼主自学VBA

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html