用宏合并多個工作簿?（一）轉換文件格式代碼 ，接下來我們就來聊聊關于用宏合并多個工作簿?以下内容大家不妨參考一二希望能幫到您!
用宏合并多個工作簿
一、Excel宏代碼（一）轉換文件格式代碼
ren *.xlsx *.xls
（二）宏代碼
Sub 合并多個工作薄間多個工作表()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls*),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
二、WPS宏代碼
（一）轉換文件格式代碼
ren *.xls *.et
ren *.xlsx *.et
（二）宏代碼
function 合并多個工作薄間多個工作表(){
var twb=ThisWorkbook;
var pah=twb.Path;
var str=pah "\\*.et";
var fn=Dir(str);
while(fn!=twb.Name){
Workbooks.Open(pah "\\" fn);
var awb=ActiveWorkbook
awb.Sheets.Copy(null,twb.Sheets(twb.Sheets.Count));
awb.Close(false);
try{
fn=Dir();
}
catch(err){break}
}
}
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
