作者Marty (DNA探针)
看板Visual_Basic
标题Re: [VBA ] 如何用Excel VBA一次开多个workbooks
时间Sun Feb 25 21:23:25 2007
※ 引述《greengarden (I Love Rain)》之铭言：
: 问题一:
: 请问各位大大 要如何同时开启 多个EXCEL
: 以下是我的方法 但是太冗长了 有其他方法可以精简吗?
: Workbooks.Open ("D\a1.xls")
: Workbooks.Open ("D\a2.xls")
: Workbooks.Open ("D\a3.xls")
: Workbooks.Open ("D\a4.xls")
: Workbooks.Open ("D\a5.xls")
: Workbooks.Open ("D\a6.xls")
: Workbooks.Open ("D\a7.xls")
^^^^^^^^^^ => 应该是"D:\a7.xls"
Dim i As Integer
Dim 开始数字 As Integer
Dim 结束数字 As Integer
For i = 开始数字 To 结束数字
Workbooks.Open ("D:\a" & i & ".xls")
Next i
: 问题二:
: 我的目的是要将数个不同EXCEL档里的资料汇整在同一个EXCEL里
: 内容为各地区的管制戒菸名册与戒治情形
: 我是将所有要汇整的EXCEL档(各地区的戒菸资料)都打开
: 再去做程式的执行
: 有没有不用将档案打开就可以撷取档案里资料的方法
: 谢谢 感激不尽
如果你一定要用Excel读Excel的WorkSheet,就一定要打开才能撷取资料..
顶多只能不显示WorkSheet,不过这个方法速度快不了多少..
如果你要处理的资料超过65535*255笔,可以考虑用Access..^^
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.193.204.32