用vba 实现将一个目录下的同样式excel工作表合并为一个工作表, 后缀名为xls

### 回答1：
可以使用 VBA 编写一个宏来实现将一个目录下的同样式 Excel 工作表合并为一个工作表的功能。以下是一个简单的示例代码：

Sub MergeExcelFiles()
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Dim DestSheet As Worksheet
Dim RowCount As Long
Dim LastRow As Long

'设置目录路径
FolderPath = "C:\MyFolder\"

'创建新工作表
Set DestSheet = ThisWorkbook.Sheets.Add

'循环遍历目录下的所有 Excel 文件
Filename = Dir(FolderPath & "*.xls")
Do While Filename <> ""
'打开工作簿
Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True

'复制工作表到目标工作表
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> DestSheet.Name Then
Sheet.Copy After:=DestSheet
Set DestSheet = ActiveSheet
LastRow = DestSheet.Cells(Rows.Count, 1).End(xlUp).Row
If LastRow > 1 Then
RowCount = RowCount + LastRow - 1
End If
End If
Next Sheet

'关闭工作簿
Workbooks(Filename).Close SaveChanges:=False

'获取下一个文件名
Filename = Dir()
Loop

'删除第一个空白工作表
Application.DisplayAlerts = False
ThisWorkbook.Sheets(1).Delete
Application.DisplayAlerts = True

'显示合并后的工作表
DestSheet.Activate

'提示合并完成
MsgBox "已合并 " & RowCount & " 行数据。"
End Sub

### 回答2：
使用VBA可以很方便地将一个目录下的同样式Excel工作表合并为一个工作表，并将其保存为后缀名为xls的文件。

首先，我们需要在VBA中引用Microsoft Excel对象库。打开VBA编辑器，在工具菜单中选择“引用”，勾选Microsoft Excel对象库，然后点击确定。

接下来，我们创建一个VBA宏来实现合并工作表的功能。以下是一个示例代码：

Sub 合并工作表()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim mergedSheet As Worksheet
    
    folderPath = "C:\目录路径"   '将目录路径替换为你的目录路径
    
    '创建一个新的工作簿
    Set wb = Workbooks.Add
    
    '循环遍历目录下的所有文件
    fileName = Dir(folderPath & "\*.xls")
    Do While fileName <> ""
        '打开每个文件
        Set ws = Workbooks.Open(folderPath & "\" & fileName).Worksheets(1)
        
        '将工作表数据复制到新的工作簿的合并工作表中
        Set mergedSheet = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))
        ws.UsedRange.Copy mergedSheet.Range("A1")
        
        '关闭打开的工作簿
        ws.Parent.Close False
        
        '获取下一个文件名
        fileName = Dir()
    Loop
    
    '保存合并后的工作簿为xls文件
    wb.SaveAs folderPath & "\合并工作表.xls", FileFormat:=xlExcel8
    
    '关闭工作簿
    wb.Close
    
    '释放对象
    Set mergedSheet = Nothing
    Set ws = Nothing
    Set wb = Nothing
    
    MsgBox "合并完成！"
End Sub

将上述代码中的"目录路径"替换为你要合并工作表的目录路径，并运行宏即可实现将目录下的同样式Excel工作表合并为一个工作表，并以后缀名为xls的文件保存在目录下。

### 回答3：
实现将一个目录下的同样式Excel工作表合并为一个工作表，后缀名为xls，可以通过以下VBA代码实现：

Sub 合并Excel工作表()
    Dim 文件夹路径 As String
    Dim 文件名 As String
    Dim 源工作表 As Worksheet
    Dim 目标工作表 As Worksheet
    Dim 文件对象 As Object
    Dim 文件 As Object
    
    ' 设置目标工作表
    Set 目标工作表 = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    目标工作表.Name = "合并结果"
    
    ' 选择需要合并的工作表所在的文件夹路径
    文件夹路径 = BrowseForFolder("请选择需要合并的工作表所在的文件夹路径：")
    
    ' 打开文件夹并遍历其中的Excel文件
    Set 文件对象 = CreateObject("Scripting.FileSystemObject")
    文件名 = 文件对象.GetAbsolutePathName(文件夹路径) & "\*.xls"
    文件名 = VBA.Dir(文件名)
    
    Do While 文件名 <> ""
        ' 打开Excel文件
        Set 文件 = Workbooks.Open(文件对象.GetAbsolutePathName(文件夹路径) & "\" & 文件名)
        
        ' 遍历文件中的所有工作表
        For Each 源工作表 In 文件.Sheets
            ' 复制工作表内容到目标工作表
            源工作表.Cells.Copy 目标工作表.Cells(目标工作表.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
        Next 源工作表
        
        ' 关闭已处理的文件
        文件.Close SaveChanges:=False
        
        ' 获取下一个文件名
        文件名 = VBA.Dir()
    Loop
    
    ' 调整目标工作表的列宽和行高
    目标工作表.Cells.EntireColumn.AutoFit
    目标工作表.Cells.EntireRow.AutoFit
    
    ' 提示合并完成
    MsgBox "工作表合并完成！"
End Sub

Function BrowseForFolder(Optional Prompt As String) As String
    Dim ShellApp As Object
    Set ShellApp = CreateObject("Shell.Application")
    On Error Resume Next
    BrowseForFolder = ShellApp.BrowseForFolder(0, Prompt, 0).Self.Path
    On Error GoTo 0
    Set ShellApp = Nothing
End Function

以上代码会弹出一个浏览文件夹的对话框，需要手动选择需要合并的Excel工作表所在的文件夹路径。然后，它会打开文件夹并遍历其中的Excel文件，将各文件中的所有工作表内容复制到一个名为"合并结果"的工作表中。最后，调整合并结果工作表的列宽和行高，并提示合并完成。