script รวมไฟล์ excel

เปิด Excel
กด Alt+F11
เลือก Insert > Module
คัดลอก code ต่อไปนี้วางแล้วรัน

Sub GetSheets()
Path = “C:\excel folder\”
Filename = Dir(Path & “*.xls”)
Do While Filename <> “”
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

ปล.1 Path คือ folder ที่เก็บไฟล์นั้น ๆ
ปล.2 ต้องให้ไฟล์เป็นนามสกุลเดียวกัน เช่น xls หรือ xlsx และต้องแก้ในบรรทัด Filename ด้วย