在其他工作簿中複製過程出錯

我已將工作簿複製爲測試版本。我已經編寫並測試了一個代碼，並且它已經完美運行，但是在將其複製到實際工作簿後，vba會給出「對象變量或...」錯誤。我檢查了工作簿/工作表的名稱。我在測試工作簿中沒有做任何其他更改。在其他工作簿中複製過程出錯

2017-09-03 Derr

如果你想讓別人幫忙，你需要提供關於代碼的更多細節。至少從共享失敗的代碼行開始（如果可能的話，以及上面的代碼行，或者至少是你聲明/設置有罪代碼行中包含的變量的行） –

相同的代碼在四個工作表中工作，但不會另外三個工作表是一樣的沒有一行顯示爲失敗 – Derr

什麼是行失敗和錯誤是什麼 –

在我的第一個看法，我認爲，有問題的條件爲Do循環。問題是，這Ç是一個範圍，而不是一個字符串，所以我會檢查的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")

因爲有卡住，你會得到錯誤的工作簿。如果你Intrestet爲什麼這樣，你可以閱讀她：VBA ACTIVEWORKBOOK VS THISWORKBOOK

2017-09-03 15:38:04 Moosli

我已經改變了工作簿的名稱。新的「do until」或「c」對象 – Derr

回答