您可以使用VBA编写一个宏来批量打开文件夹内的文件。下面是一个示例代码：
```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`来读取工作簿中的数据。
