|
veggieg 发表于 2012-3-29 11:28
太好了!!终于等到知道这个问题的高手出现了!!
hiyou您好,文件名是可以通过代码找到的(假设是BOO ...
Set XL1 = GetObject("BOOK2", Excel.Application)
这一句有问题,黑体中,标准的写法是
GetObject("BOOK2","Excel.Application") '<= 类名要引起来
(不过我前面的示范也有问题,就是BOOK1和BOOK2没有加引号,结果会指向一个0变量)
再想了想,没有必要搞得这么复杂,改了一下
看下面的代码,你先打个两个实例,确认它们分别是BOOK1和BOOK2,如果是别的名字(BOOK3什么的)就改名
- '这里注意一下,不管在哪里的VBA代码,
- '都能抓到两个WORKBOOK的对象实例
- set wrk2=getobject("book2")
- set wrk1=getobject("book1")
- '然后从两个WORKBOOK上引申到两个APPLICATION上
- set xl1App=wrk1.Application
- set xl2App=wrk2.Application
- xl1app.range("a1")="hi,book1"
- xl2app.range("a1")="hello,book2"
复制代码 |
评分
-
1
查看全部评分
-
|