excel - 无效的前向引用，或对未编译类型的引用

Question

我目前正在使用代码来更新文件，其中循环运行在多个工作表中。到目前为止，代码运行顺利。今天运行时，遇到“运行时错误'-2147319767(80028029)'自动化错误，无效的前向引用，或对未编译类型的引用”。

错误发生在 Workbooks("Upload.xlsm").Worksheets(branchName).Range("C7").PasteSpecial Paste:=xlPasteValues 行并在循环的第 6 次迭代中出现。

我用了On Error Resume Next作为完成运行的临时措施，因为当时必须这样做。

完成后，有 3 次迭代失败(第六次、第七次和第十次)。这三者彼此之间没有相关性(即不同的复制源、值等)，但有其他迭代具有完全相同的复制源/值并成功完成。

稍后在这些工作表上运行另一个复制命令会导致相同的错误。我最终不得不删除并重新创建工作表来解决错误。

' Uploads file update

fpath = Workbooks("TEG Rates.xlsm").Worksheets("Link List").Range("E3").Value

Workbooks.Open fpath & "Upload.xlsm"

For branchNo = 21 To 37

    branchName = Workbooks("TEG Rates.xlsm").Worksheets("Link List").Range("A" & branchNo).Value
    branchGroup = Workbooks("TEG Rates.xlsm").Worksheets("Link List").Range("B" & branchNo).Value

    ' Copy/Paste Buy & Sell

    Workbooks("TEG Rates.xlsm").Worksheets(branchGroup).Range("D7:G111").Copy
    Workbooks("Upload.xlsm").Worksheets(branchName).Range("C7").PasteSpecial Paste:=xlPasteValues

    For no = 7 To 10

        Workbooks("Upload.xlsm").Worksheets(branchName).Range("D" & no).Value = "=ROUND(100/C" & no & ",6)"

    Next no

    Workbooks("Upload.xlsm").Worksheets(branchName).Range("D14").Value = "=ROUND(100/C14,6)"
    Workbooks("Upload.xlsm").Worksheets(branchName).Range("D15").Value = "=ROUND(10000/C15,4)"

    Workbooks("Upload.xlsm").Worksheets(branchName).Range("D16").Value = "=ROUND(100/C16,6)"
    Workbooks("Upload.xlsm").Worksheets(branchName).Range("D19").Value = "=ROUND(100/C19,6)"

Next branchNo

Workbooks("Upload.xlsm").Close SaveChanges:=True
Application.CutCopyMode = False

虽然目前我能够操作此代码，但我担心我的团队会在我不在时遇到这个问题。什么可能导致这种情况/我可以做些什么来防止这种情况发生？如果需要，我愿意提供文件。

Answer 1

我和我的 friend 有同样的问题。我在工具 > 引用(在 VBA 编辑器中)下启用了“AccessibilitycplAdmin 1.0 类型管理员”，这解决了两台计算机中的问题