同一文件夹中部分工作簿的同名工作表进行汇总在一张工作表上

bigxia07

下面是一位老师给我写的汇总工作表的代码，但只适用同一文件夹中除汇总工作簿外的其他所有工作簿都含需要汇总的工作表的工作簿，如果含其他不相关的工作簿，就会出现“运行错误9，下标越界”的错误提示，哪位老师可帮我修改一下，可以使同一文件夹中即使含不相关的工作表也可以对其他需要的工作表进行合并汇总，最好能麻烦给我解释一个代码的含义，要求有点高了，谢谢

• Sub 导入数据()
• Dim arr, brr(1 To 1000, 1 To 7)
• Dim wb As Workbook
• Dim mypath$, myname$
• Application.DisplayAlerts = False
• Application.ScreenUpdating = False
• mypath = ThisWorkbook.Path & ""
• myname = Dir(mypath & "*.xl*")
• Do While myname <> ""
•   If myname <> ThisWorkbook.Name Then
•   Set wb = GetObject(mypath & myname)
•     With wb
•       With .Worksheets("通话1")
•         arr = .Range("a1").CurrentRegion
•         For i = 2 To UBound(arr)
•           n = n + 1
•           For j = 1 To 7
•             brr(n, j) = arr(i, j)
•           Next
•         Next
•       End With
•      .Close False
•     End With
•   End If
• myname = Dir()
• Loop
• With Worksheets("通话1汇总")
•   .UsedRange.Offset(1).ClearContents
•   .Range("a2").Resize(n, 7) = brr
• End With
• Application.DisplayAlerts = True
• Application.ScreenUpdating = True
• MsgBox "导入数据完成!"
• End Sub
  

abc123281

呵呵  很巧  我路过  
    代码是我写的   想要修改  你得上传原始的附件  不相关的工作簿是哪些  也放到里面

bigxia07

谢谢，附件中7月4日的工作簿是不相关的，其他三个都有通话1工作表，我要合并通话1工作表数据

bigxia07

首先感谢老师提供艾敦制表神器，但对我可能不适合，因为我每个工作簿下有几十个工作表，一共有几十个工作簿，先汇总在一个工作簿中肯定不现实，所以最好是用vab语句

abc123281

楼主新同学好
   目前的代码汇总的都是各个工作表“通话1”的内容  看下面的代码
  With .Worksheets("通话1")
        arr = .Range("a1").CurrentRegion
  如果会发生错误，请在代码 mypath = ThisWorkbook.Path & "\" 前面加上这句
    on error resume next

jjmysjg

留个记号，在请教

bigxia07

cspostwjq 发表于 2018-5-8 15:39
你合并时应该每个工作薄只取一个表吧

在汇总工作簿中有很多工作表，其中有几张工作表要从其他工作簿中的部分工作簿中选取需要的工作表进行汇总，比如说有100个工作簿，其中30个有通话记录1号工作表，那我汇总工作簿中就要将那30个通话记录1号选取出来进行汇总

bigxia07

abc123281 发表于 2018-5-7 23:30
楼主新同学好
   目前的代码汇总的都是各个工作表“通话1”的内容  看下面的代码
  With .Worksheets("通 ...

首先感谢大神老师，基本上成功，大多数汇总表正确，只是有些汇总出来后发现有些小问题，就是一些同样符合条件的工作表没有汇总到，有些是汇总出来出现非法符，我不知道是不是因为源文件格式不对的问题