將Execl Workbooks文件夾內(nèi)的3個(gè)表格合并到File文件中。打開File文件，通過寫VBA代碼來實(shí)現(xiàn)。

Private Sub 點(diǎn)擊合并_Click()
'需要合并的表格文件夾存放位置
Path = "C:\Users\15432\Desktop\Excel Workbooks\"
'文件名
Filename = Dir(Path & "*.xlsx")
'取文件循環(huán)
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
'sheet選擇
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub