[算表] VBA如何讀取未開啟的算表？

[Cidolfas ()]

軟體:excel

版本:2007

版眾好，我在某個資料夾中有10幾個excel表，

每個excel各有數量不等的工作頁。

我想把這些工作頁分開全都放到一個excel裡，

但是我寫的VBA只能在他們都開啟的時候抓到當時開啟的工作頁，

而且要先把excel的名稱全部都先改成數字(ex. 1.xlsx, 2.xlsx, ...)

想請問版眾3個問題，煩請指導，謝謝。

1. 如何一次讀取此資料夾中所有excel的名稱
2. 如何在不開啟excel檔案的時候就能抓到資料
3. 各excel的不同工作頁要如何都能抓到

----------------
Sub 工作表複製()
  MsgBox "複製使用中的工作表,並貼到目前使用的工作表"
For I = 1 To 10
    Workbooks(I & ".xlsx").Sheets("Sheet1").Copy
      before:=Workbooks("test.xlsm").Sheets("Sheet1")
    Next I
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.25.188.152
→ soyoso:1.Dir() 2. CreateObject("Excel.Application")
→ soyoso:3.For each...next