使ç¨æ¹æ³ï¼
1ãæ°å»ºä¸ä¸ªå·¥ä½èï¼å°å
¶å½åä¸ºä½ å并åçååã
2ãæå¼æ¤å·¥ä½èã
3ãå¨å
¶ä¸ä»»ä¸ä¸ªå·¥ä½è¡¨æ ç¾ä¸ç¹å»å³é®ï¼éæ©âæ¥ç代ç âã
4ãå¨æå¼çVBAç¼è¾çªå£ä¸ç²è´´ä»¥ä¸ä»£ç ï¼
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
5ãå
³éVBAç¼è¾çªå£ã
6ãå¨excelä¸ï¼å·¥å
·---å®---å®,éâå·¥ä½èé´å·¥ä½è¡¨å并â,ç¶åâæ§è¡âã
7ãå¨æå¼ç对è¯çªå£ä¸ï¼éæ©ä½ è¦å并ç300个工ä½èã
温馨提示:内容为网友见解,仅供参考