※ 引述《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