下圖所示:一個文件夾下面有多個excel工作薄,每個工作薄文件下面有不固定張數(shù)的工作表。比如有的文件只有一張工作,有的文件是多張工作表。
現(xiàn)在的問題,如何將這些多個文件實現(xiàn)合并工作表。將這些所有工作表全部合并到同一張工作表。
一般的做法,通過“移動或復(fù)制”實現(xiàn)合并工作表。要高效,可以使用VBA代碼來實現(xiàn)合并工作表。
合并工作表操作步驟:
新建一個excel文件,按ALT+F11,打開VBE編輯器,復(fù)制下面的代碼,然后運行,選擇文件夾下面的所有excel文件,執(zhí)行合并工作表。
Sub 合并工作簿()
Dim FilesToOpen, wb As Workbook, sht As Worksheet
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "BooLEAN" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
If FilesToOpen(x) <> ThisWorkbook.FullName Then
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
For Each sht In wb.Sheets
sht.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
End If
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
說明:上面代碼是合并xlsx文件,如果是合并excel2003的文件,需要將:FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx",xlsx改為.xls。
核心關(guān)注:拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:一鍵合并工作表
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139215003.html