为什么工作簿下文件多的时候，会出现重复结果

xyd617

为什么工作簿下文件多的时候，会出现重复结果

Sub 导入数据()

Dim arr, brr(1 To 10000, 1 To 16) '21表示列数

Dim wb As Workbook

Dim mypath$, myname$

Application.DisplayAlerts = False

Application.ScreenUpdating = False

mypath = ThisWorkbook.Path &"\"

myname = Dir(mypath &"*.xl*")

Do While myname <> ""

  Ifmyname <> ThisWorkbook.Name Then

  Setwb = GetObject(mypath & myname)

   With wb

     With .Worksheets("TD07") '要汇总的工作表名

       arr = .Range("a1").CurrentRegion

       For i = 7 To UBound(arr)

         n = n + 1

         For j = 1 To 16 '21表示列数

           brr(n, j) = arr(i, j)

         Next

       Next

     End With

    .Close False

   End With

  EndIf

myname = Dir()

Loop

With Worksheets("汇总")

.UsedRange.Offset(6).ClearContents

.Range("a7").Resize(n, 16) = brr

End With

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "导入数据完成!"

End Sub

opiona

不是工作簿下文件，是文件夹内文件
重复可能是你文件内容的问题

无头无尾的提问，还没附件，基本解决不了问题
参考：http://club.excelhome.net/thread-1409141-1-1.html

liulang0808

建议楼主上传附件，举例说明具体需求

jiminyanyan

上附件。。。。