可以在Excel表格中用下面的VBA程式實現：

Sub Test() "開啟當前目錄下檔案，將Sheet1資訊複製到彙總表上

Dim f$

Dim n&

Mypath = ThisWorkbook.Path & "\"

f = Dir(Mypath & "*.xls*")

Do While f > " "

n = n + 1

Workbooks.Open Mypath & f

Set c = ActiveWorkbook

arr=sheet1.UsedRange

c.Close

Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr

n=n+Ubound(arr,1)

f = Dir

Loop

End Sub