Excel 宏开始抛出下标超出范围的消息

我有一个宏，它至少运行了6个月。最近，当它点击以下行时，开始抛出“下标超出范围”错误消息：

Do Until Len(Trim(Workbooks(MyReport).Worksheets(Var1(Y)).Cells(r, 1))) + 
    Len(Trim(Workbooks(MyReport).Worksheets(Var1(Y)).Cells(r, 2))) + 
    Len(Trim(Workbooks(MyReport).Worksheets(Var1(Y)).Cells(r, 3))) = 0

    MyReport = "000000-Affliates.xlsx"
    Var1(Y) = "UK-FR Upld"

---

这个代码以前从来都不是问题？任何帮助都将不胜感激。谢谢……。

这不是宏的问题。这是由于数据文件上的图纸名称造成的。用户在图纸名称前面有两个空格。宏代码正在修剪图纸名称中的所有空格，因此宏找不到图纸

“图纸名称”≠ “图纸名称”

删除空格后，宏将按预期运行

---

谢谢你的帮助……

这是三行，那么问题出在哪一行呢？此外，缺少一组上下文，因此…看起来

Trim

s位于错误的位置…但这会给您一个不同的错误。这是你真正的“习惯工作”代码吗？@TimWilliams…..我已经更新了原始帖子以显示原始代码。我把我试过的修改过的代码贴在了网上。我还在“do”之前添加了这一行：gg=Trim（工作簿（MyReport）.Worksheets（Var1（Y））.Trim（Cells（r，1））），现在这一行出现了错误。我不知道为什么这不再有效。谢谢你的帮助…@BigBen…。我已经用原始代码更新了我的原始帖子。我已经发布了“修改后”的代码，我正试图让它发挥作用。谢谢