Excel VBA如何在乙個目錄中批處理所有文件 30

您好，搜尋： Excel studio或VBA定製可為您訂製節目組，兄弟基地消除：

sub gg（） 新增乙個模組 1

dim paths as string

pahts = dir( &

do while paths <>

所有 ** 名稱。

msgbox paths

paths = dir

loopend sub

ExcelPath = C：文件和設定 所有使用者桌面"

excelpath = d：桌面"

set s =

excelpath

waybilldatalist*.xls" '

for i = 1 to

myname =

myname = split(myname, "ubound(split(myname, "

if instr(myname, "xls") 0 then

dim tm as integer

dim td as integer

tm = cint(left(right(myname, 8), 2))

td = cint(left(right(myname, 6), 2))

if msgbox("是否匯入"+CSTR（TM） + 月"+CSTR（TD） +關閉天數？ ",vbyesno, "技巧") vbyes then '6 返回是，7 返回否。

set xlbook = + myname) '開啟現有的 Excel 工作簿滲漏檔案。

true '使 Excel 物件可見（或不可見）。

set xlsheet = , "xls"設定活動工作表。

if sheets("群集並行傳輸模式").cells(1, 5) =then sheets("運輸方式").cells(1, 5) =1"

end if

end if

next i

如圖所示，a、b、c三個資料夾，每個資料夾下的檔案如下，都是乙個名為aaaa的工作表，在這個工作表中，有6列12行資料，已經設定為**，並建立了乙個新的彙總檔案。

在摘要檔案中建立查詢。

輸入位置。 直接選擇“合併並載入”。

如果不設定**，這裡只會顯示工作表，只需選擇要合併的工作表，這是合併結果，如有必要，只需刪除以前的工作表名稱即可。

b、c 目錄也可以操作到新工作表中。

如何將資料夾中的所有檔案表合併到摘要檔案中。