excel - 这个工作簿在 Excel 2018 中不起作用？

Question

我最近遇到了一个问题，在以前版本的 Excel 中使用的宏已停止按预期运行。该宏在运行时会打开特定文件夹中的每个文件，并复制其中的一些数据并将其粘贴到它打开的另一个文件中。

由于此宏是从文件夹中的文件中运行的，因此以前使用以下代码对其进行编程以不尝试重新打开该文件:

' Create a new workbook and set a variable to the first sheet.
  '  Set SummarySheet =
    Workbooks.Open ("[Redacted]")
   '     agg_wkb_name = ActiveWorkbook
        lrowcount = ActiveWorkbook.Worksheets("scheduled hours").UsedRange.Rows.Count
        ActiveWorkbook.Worksheets("scheduled hours").Range("A2:bz" & lrowcount).Delete
    ' Modify this folder path to point to the files you want to use.
    FolderPath = "[Redacted]"

    ' NRow keeps track of where to insert new rows in the destination workbook.
    NRow = 2

    ' Call Dir the first time, pointing it to all Excel files in the folder path.
    FileName = Dir(FolderPath & "*.xl*")

    ' Loop until Dir returns an empty string.
    Do While FileName <> ""
        ' Open a workbook in the folder
        If FolderPath & FileName = ThisWorkbook.FullName Then
        Set WorkBk = ThisWorkbook
        Else
        Set WorkBk = Workbooks.Open(FolderPath & FileName, , True)
        End If

但是，在我们的计算机和程序更新到 Win10 和 Excel 2016 后，此宏开始尝试同时打开运行该文件的工作簿(“ThisWorkbook”)。当您尝试说“不，我不想重新打开文件”时，它会停止宏，而当您说"is"时，Excel 会崩溃。

我试图分离代码，从“ThisWorkbook”中提取数据，而不是从文件夹中的其他各种工作簿中提取数据。新的代码部分内容如下:

Do While FileName <> ""
        If Not (FolderPath & FileName = ThisWorkbook.Path & ThisWorkbook.Name) Then
        Set WorkBk = Workbooks.Open(FolderPath & FileName, , True)
        End If

不幸的是，同样的错误仍然发生。我不知所措——我最好的猜测是，在最新版本的 Excel 和当前版本之间，“ThisWorkbook”的运行方式发生了一些变化。

Answer 1

因此，事实证明系统管理员已将该文件夹重新映射到我计算机上的驱动器。我通过不让代码查看文件位置进行比较来修复它，只查看名称，因为一旦你进入文件夹，所有这些都会发生变化。

如果有人遇到这种情况，或者有类似的情况，他们正在打开文件夹中的所有文件，但当前打开的文件除外 - 不要打扰文件路径。只需使用名称。