Question

我有一个名为“ macro”的文件夹，其中包含约25个excel工作簿。所有工作簿的格式都完全相同，唯一的区别是日期范围。

我想做的是实现一些VBA代码，将所有这些文件组合到一个工作簿中。

当我尝试在共享网络上的文件夹上运行此文件时，我收到一条错误消息，即找不到名为“工资审核信息”的特定excel文件，并且该文件已被移动或删除。

奇怪的是，我没有在代码中搜索该文件，并且文件没有位于第一个文件夹中，因此我不确定VBA为何要搜索此文件。 / p>

这是我的代码：

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim wkbDest As Workbook
    Dim wkbSource As Workbook
    Set wkbDest = ThisWorkbook
    Dim LastRow As Long
    Const strPath As String = "\\data02\Finance\Dept01\01 FILES\2019 Files\Paydate 4.5.19\EOM DATA\Individual Grouping\Macro\"
    ChDir strPath
    strExtension = Dir("*.xls*")
    Do While strExtension <> ""
        Set wkbSource = Workbooks.Open(strPath & strExtension)
        With wkbSource
            LastRow = .Sheets("ExportSheet").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            .Sheets("ExportSheet").Range("A3:I" & LastRow).Copy wkbDest.Sheets("ExportSheet").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0)
            .Close savechanges:=False
        End With
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

知道为什么我会收到此错误吗？

几乎就像我在错误的目录中搜索一样，但我知道我不是...

运行VBA代码以将多个工作簿导入单个工作簿时出错

0 个答案: