最近一位同學(xué)讓我付費(fèi)給他寫(xiě)一段VBA代碼,，功能就是合并同一文件夾下的所有工作簿的第一個(gè)工作表到同一個(gè)工作簿中去，我大概花了二十多分鐘將功能基本寫(xiě)出來(lái)了,，又花了點(diǎn)時(shí)間研究?jī)?yōu)化代碼,，最后大功告成。

合并工作簿的功能應(yīng)該是日常工作場(chǎng)景用的比較多的,，這里干貨君將代碼貢獻(xiàn)出來(lái),，有需要的同學(xué)可以直接復(fù)制粘貼使用。

代碼如下：

Sub merge_workbooks()

Dim str As String

Dim wb As Workbook

spath = InputBox('請(qǐng)輸入需要合并工作簿的文件路徑,，比如文件在D盤(pán)的a文件夾下,，則輸入D:\a')

str = Dir(spath & '\*.xls*')

Application.DisplayAlerts = False

For i = 1 To 200

Set wb = Workbooks.Open(spath & '\' & str)

wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(str, '.')(0)

wb.Close

str = Dir

If str = '' Then

Exit For

End If

Next

ThisWorkbook.Sheets(1).Select

MsgBox ('恭喜！工作簿已經(jīng)成功合并,！')

Application.DisplayAlerts = True

End Sub

代碼的具體使用方法如下：

1,、首先新建一個(gè)工作簿，打開(kāi)“開(kāi)發(fā)工具”選項(xiàng)卡下的“visual basic”工具,。

2、在visual basic編輯工具里選擇一個(gè)工作表,，再點(diǎn)擊插入,，然后點(diǎn)擊“模塊”。

3,、在模塊編輯欄里將代碼粘貼進(jìn)去，需要運(yùn)行代碼就按鍵盤(pán)的F5即可,。

動(dòng)圖演示：

另外有幾點(diǎn)需要強(qiáng)調(diào)下,。

1,、代碼只能合并多張工作簿下的第一張工作表的文件，如果一張工作簿有多張工作表,，則默認(rèn)只會(huì)合并第一張工作表,。

2、一次只能合并同一后綴名的文件,，比如只能同時(shí)合并xls后綴或者xlsx后綴的文件,，若同一文件夾下既有.xls文件又有.xlsx文件，則代碼無(wú)法正常運(yùn)行,。因?yàn)閤ls文件和xlsx的工作表行數(shù)不一致,。

喜歡的同學(xué)記得加個(gè)關(guān)注點(diǎn)個(gè)收藏