å¯ä»¥å©ç¨VBAå¿«éå并å¤ä¸ªå·¥ä½ç°¿
软件çæ¬ï¼Office2013
æ¹æ³å¦ä¸ï¼
1.æ°å»ºä¸ä¸ªå·¥ä½ç°¿æè æå¼ä¸ä¸ªè¦å并å°çå·¥ä½ç°¿ï¼Alt+F11ï¼æå¼VBAç¼è¾çé¢ï¼è¾å ¥å¦ä¸ä»£ç ï¼
Sub å·¥ä½èé´å·¥ä½è¡¨å并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excelæ件(*.xlsx),*.xlsx", 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
2.F5æ§è¡ä»£ç ï¼éæ©è¦å并çå¤ä¸ªå·¥ä½ç°¿åï¼ç¹å»æå¼ï¼
3.è¿æ ·ï¼éæ©çå·¥ä½ç°¿å°±åæäºå½åå·¥ä½ç°¿çä¸ä¸ªä¸ªå·¥ä½è¡¨ï¼ä»èå并å°äºä¸ä¸ªå·¥ä½ç°¿ä¸ï¼