仿问梁冠华狄仁杰:合并当前目录下所有工作簿的全部工作表

来源：百度文库编辑：中财网时间：2024/05/01 10:16:46

Sub 合并当前目录下所有工作簿的全部工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Num = 0
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            Num = Num + 1
            With Workbooks(1).ActiveSheet
                If Num = 1 Then
                    For G = 1 To Sheets.Count
                        Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
                    Next
                Else
                    For G = 1 To Sheets.Count
                        Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
                    Next
                End If
                WbN = WbN & Chr(13) & Wb.Name
                Wb.Close False
            End With
        End If
        MyName = Dir
    Loop
    Range("A1").Select
    Application.ScreenUpdating = True
    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

DOS系统下“cd”命令用于显示用户当前的工作目录小张需要在自己的Linux工作站上当前目录下为目dir2，则应使用命令如何合并工作表使用java，如何建立当前目录下的目录？ excel 要合并2个工作表，里面有些重复的信息，怎么合并？ excel 要合并2个工作表，里面有些重复的信息，怎么合并？查找当前目录下所有属于用户user的文件名三个字符，中间字符是j的文件 EXCEL 2000文件中多个工作表的内容如何合并为一张工作表的内容？怎么样合并工作表呢?在EXCEL 请问全部关闭当前所有程序的快捷键请问全部关闭当前所有运行程序的快捷键 dobe Download Manager 在当前的网络配置下无法工作。 VB 获阳当前目录下的文件夹 VB 如何获取当前目录下的文件夹列表目录式搜索引擎的工作原理是什么？活动目录的工作原理是? 活动目录的工作原理是? 在EXCELk中“查看当前文件的统计信息，并设置新工作簿内的工作表数为：5”的实现方法？怎样查看linux下的所有目录?~~~~~ 工作站上桌面图标在服务器哪个目录下? 请问如何用EXCEL的函数公式统计当前工作薄中工作表的数量啊? 怎样把Excel工作表中相同的单元格合并或留一个其他的删除就当前就业市场对会计人员的需求来讲，过去的会计人员已不能适应计算机操作下的工作，如何将数张工作表中相同列中不同行的数据合并到一起