使用VBA在execl中写一个合并多个Execl的程序

你好，这是一个关于Excel VBA的技术问题，我可以为您提供一些帮助。您可以使用VBA编写一个程序来合并多个Excel文件。以下是一些示例代码，可以将多个Excel文件合并为一个文件：

Sub MergeFiles()
Dim Path As String, FName As String
Dim wb As Workbook, s As Workbook
Dim ws As Worksheet, sws As Worksheet

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Path = "C:\Merge\" '定义您的Excel文件所在的路径

FName = Dir(Path & "*.xlsx") '列出该路径下所有的Excel文件

Do While FName <> ""
Set s = Workbooks.Open(Filename:=Path & FName)
Set sws = s.Sheets(1)
Set wb = ThisWorkbook
sws.Copy After:=wb.Sheets(wb.Sheets.Count) '在新工作簿中复制工作表
s.Close SaveChanges:=False
FName = Dir '获取下一个文件名
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "Done!"
End Sub

如果您有任何其他问题，请随时问我。