您可以使用VBA編寫一個宏來批量打開文件夾內的文件。下面是一個示例代碼：
Sub OpenFilesInFolder()
Dim FolderPath As String
Dim FileName As String
Dim wb As Workbook
' 設置文件夾路徑
FolderPath = "C:\Your\Folder\Path\"
' 獲取文件夾中的第一個文件名
FileName = Dir(FolderPath & "*.*")
' 循環遍歷文件夾中的文件
Do While FileName <> ""
' 打開文件
Set wb = Workbooks.Open(FolderPath & FileName)
' 在這里可以添加您需要執行的操作，比如讀取數據、復制粘貼等
' 關閉文件
wb.Close SaveChanges:=False
' 獲取下一個文件名
FileName = Dir
Loop
End Sub
要使用上述代碼，請將FolderPath變量替換為您的文件夾路徑，并在循環中添加您需要執行的操作。例如，您可以使用wb.Sheets("Sheet1").Range("A1").Value來讀取工作簿中的數據。
