別のシートに行く前に現在のシートを無効にする

Question

2枚のシートで交換しているときにエラーが発生しています。 私は1枚のシートを開き、この中にいくつかのデータを貼り付けた後、別のシートを開く関数を呼び出します。最初のシートにデータを貼り付けたときにエラーがスローされます。それが正常に動作しますが、機能getNewValue()を呼び出した後、それはエラーワークシートで、「範囲外の添字」（「シート1」）。レンジ（「B」& rowCntr）.Valueの=「ABCをスロー初めて

For y = 1 To size 
    Set src = Workbooks.Open("C:Template\Mapping.xlsx") 
    Worksheets("Sheet1").Activate 
    Worksheets("Sheet1").Range("B" & rowCntr).Value = "abc" 
    newValue= getNewValue() 
    rowCntr=rowCntr+1 
Next 

public Function getNewValue() 
    Dim newV=123 
    Set src = Workbooks.Open("C:Template\Mapping - Development v1.0.xlsx") 
    getNewValue=newV 
End Function 

"行。

助けてください。

Answer 1

代わり選択/活性化、利用オブジェクト（ブック、範囲）参照が不要、

Set src = Workbooks.Open("C:Template\Mapping.xlsx") '<~~ open workbook outside the loop since it doesn't depend on it 
For y = 1 To size 
    src.Worksheets("Sheet1").Range("B" & rowCntr).Value = "abc" '<~~ use "src" workbook reference to point to it whatever may be the currently active workbook 
    newValue= getNewValue() 
    rowCntr=rowCntr+1 
Next 

Answer 2

あなたのコード例は不完全であるが、以下のように。明らかに、それはsrcが何であるかは定義していませんが、それはまさにエラーとなります。srcはグローバル変数で、メイン関数と関数getNewValueの両方でsrcを設定する必要があります。

getNewValueが返された場合、srcは、範囲が存在しない別のブックをポイントするようになりました。

さらに、ブックを再度開いて再読み込み、リセット、または複数のコピーが開かれるかどうかはわかりません。たとえば、1度だけ開くことをおすすめします。例：

Dim src as Object 
Dim src2 As Object 

Function main (size As Integer) 
    Dim y As Integer 
    Dim rowCntr As Integer 
    Set src = Workbooks.Open("C:Template\Mapping.xlsx") 
    Set src2 = Workbooks.Open("C:Template\Mapping - Development v1.0.xlsx") 

    For y = 1 To size 
     src.Worksheets("Sheet1").Activate 
     src.Worksheets("Sheet1").Range("B" & rowCntr).Value = "abc" 
     newValue= getNewValue() 
     rowCntr=rowCntr+1 
    Next 
End Function 

Public Function getNewValue() 
    Dim newV 
    newV = 123 
    '...whatever you want to do... 
    getNewValue = newV 
End Function