用宏合并多个工作簿(如何将多个工作簿的全部工作表合并到同一个工作簿中)
(一)转换文件格式代码 ,接下来我们就来聊聊关于用宏合并多个工作簿?以下内容大家不妨参考一二希望能帮到您!
用宏合并多个工作簿
一、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}
}
}
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com