在某個盤裡面建個資料夾，存放所有需要合併的工作表比如在D盤裡面建立一個資料夾hb，然後將工作表放到hb資料夾中在桌面新建一個excel開啟-按Alt+F11在程式碼窗口裡面輸入以下內容：Subwt() OnErrorResumeNext Dimfs,f,f1,fc,s,sCount,x Setfs=CreateObject("Scripting.FileSystemObject") Setf=fs.GetFolder("d:\hb\")Setfc=f.Files x=0 ForEachf1Infc IfRight(f1.Name,3)="xls"Then Workbooks.Open(f1.Path) sCount=Workbooks(2).Worksheets.Count Fors=1TosCount Workbooks(2).Sheets(s).Select Workbooks(2).Sheets(s).CopyAfter:=Workbooks(1).Sheets(x+s) Next x=x+sCount Workbooks(2).Closesavechanges=False EndIf Next Application.DisplayAlerts=False Workbooks(1).Sheets(1).Delete Application.DisplayAlerts=True EndSub 然後按F5執行這樣所有工作表裡面的內容都會合併到這個工作表內
在某個盤裡面建個資料夾，存放所有需要合併的工作表比如在D盤裡面建立一個資料夾hb，然後將工作表放到hb資料夾中在桌面新建一個excel開啟-按Alt+F11在程式碼窗口裡面輸入以下內容：Subwt() OnErrorResumeNext Dimfs,f,f1,fc,s,sCount,x Setfs=CreateObject("Scripting.FileSystemObject") Setf=fs.GetFolder("d:\hb\")Setfc=f.Files x=0 ForEachf1Infc IfRight(f1.Name,3)="xls"Then Workbooks.Open(f1.Path) sCount=Workbooks(2).Worksheets.Count Fors=1TosCount Workbooks(2).Sheets(s).Select Workbooks(2).Sheets(s).CopyAfter:=Workbooks(1).Sheets(x+s) Next x=x+sCount Workbooks(2).Closesavechanges=False EndIf Next Application.DisplayAlerts=False Workbooks(1).Sheets(1).Delete Application.DisplayAlerts=True EndSub 然後按F5執行這樣所有工作表裡面的內容都會合併到這個工作表內