範囲変数の設定時にアプリケーション定義またはオブジェクト定義のエラーが発生する

Question

Range変数と値を入力する別のワークブックがあります。私はそれにTheRangeを使用し、最初にclientsColl.Count行と1000列の範囲に設定します。

Dim TheRange As Range 

With resultWorkbook.Worksheets("matrix_random") 

    Set TheRange = _ 
     .Range(Cells(2, 2), Cells(clientsColl.Count, _ 
            1000))) 

... 
End With 

将来、ユーザーが取得するだけのためにしかし、私はこのエラーを得続ける、なぜ...

アプリケーション定義またはオブジェクト定義のエラー

Answer 1

を把握することはできません答え。

.CellsをWith resultWorkbook.Worksheets("matrix_random")とする必要があります。

また、は、RowsとColumnsがスワップしています。あなたは `Cells`ため.``少し必要

コード

Dim TheRange As Range 

With resultWorkbook.Worksheets("matrix_random") 
    Set TheRange = .Range(.Cells(2, 2), .Cells(1000, clientsColl.Count)) '<-- you have 1 "extra" closing bracket 
End With