通过复制其他工作簿中的过程出错

Question

我已将工作簿复制为测试版本。我已经编写并测试了一个代码并且它工作得很好，但在将其复制到我的实际工作簿中后，vba会给出一个＆＃34;对象变量或者......＆＃34;错误。我查看了工作簿/表格的名称。我在测试工作簿中没有做任何其他更改。

Answer 1

在我的第一个视图中，我认为，Do循环的条件存在问题。问题是， c 是一个范围，而不是一个字符串，所以我会像这样检查c：

Do Until Not c Is Nothing And c.Address <> FirstAddr

我会改变

Dim WS As Worksheet: Set WS = ActiveWorkbook.Worksheets("La")

到

Dim WS As Worksheet: Set WS = ThisWorkbook.Worksheets("La")

因为有变化，你会得到错误的工作簿。如果你为什么会这样，你可以读她：VBA ACTIVEWORKBOOK VS THISWORKBOOK