Sub test()
Application.ScreenUpdating = False
Dim str As String
Path = ThisWorkbook.Path & "\"
str = Dir(Path)
Sheets(1).Cells = ""
k = 1
Do While str <> ""
If str <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(Path & str)
arr = wb.Sheets(1).[a4].CurrentRegion
wb.Close False
Sheets(1).Cells(1, k).Resize(UBound(arr), UBound(arr, 2)) = arr（这里一直报错怎么解决）
k = k + UBound(arr, 2)
End If
str = Dir
Loop
Application.ScreenUpdating = True
End Sub
导入文件名次只有20210529-154222-21030473_swct1501-1-46-D25XXECR-01（01处在变化）
且需要导入附件2的内容到一个Excel中。
附件名称 ACCData
Application.ScreenUpdating = False
Dim str As String
Path = ThisWorkbook.Path & "\"
str = Dir(Path)
Sheets(1).Cells = ""
k = 1
Do While str <> ""
If str <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(Path & str)
arr = wb.Sheets(1).[a4].CurrentRegion
wb.Close False
Sheets(1).Cells(1, k).Resize(UBound(arr), UBound(arr, 2)) = arr（这里一直报错怎么解决）
k = k + UBound(arr, 2)
End If
str = Dir
Loop
Application.ScreenUpdating = True
End Sub
导入文件名次只有20210529-154222-21030473_swct1501-1-46-D25XXECR-01（01处在变化）
且需要导入附件2的内容到一个Excel中。
附件名称 ACCData
