ループの後に変数値を忘れてしまいました

Question

現在ループの一部が一度だけ実行されるDo Whileループを設定しようとしています。私は効果的に1つのシートのセル範囲を定義しようとしているし、私のループは、範囲を再指定することなく、すべてのシート/ワークブックにこの同じセル範囲を適用します。

isExecuted = False 
Do While FileName <> "" 
    ' Open a workbook in the folder 
    Set WorkBk = Workbooks.Open(Folder & "\" & FileName) 

     ' Conditional to select range only once 
     If Not isExecuted Then 

      Dim rng As Range 
      Set rng = Application.InputBox("Select a Range", "Obtain Range Object", Type:=8) 
      Debug.Print (rng.Address) 
      MsgBox "The cells selected were " & rng.Address 
      isExecuted = True 

     End If 


    Set SourceRange = WorkBk.Worksheets(1).Range(rng.Address) 

' more stuff goes here 

デバッグモードでは：ここで

は、私がこれまで持っているものです。このループが最初に実行されると、すべてが正常に動作し、rng.Addressが指定されたセル範囲であることがわかります。しかし、2番目のループでrng.Addressは<ObjectRequired>になり、残りのスクリプトは失敗します。 rng.Addressを指定されたセル範囲に永久に設定する方法に関するアイデアはありますか？

Answer 1

特定の問題は、多くのコードを見ずですが、私はこれに代えて同様に、より簡潔なロジックを示唆しているものを言うのは難しい：

If rng is Nothing Then 
    Set rng = Application.InputBox("Select a Range", "Obtain Range Object", Type:=8) 
End If 

NB：

If Not isExecuted Then 

     Dim rng As Range 
     Set rng = Application.InputBox("Select a Range", "Obtain Range Object", Type:=8) 
     Debug.Print (rng.Address) 
     MsgBox "The cells selected were " & rng.Address 
     isExecuted = True 

    End If 

はこれを行います。 ' more stuff goes hereの部分でワークブックを閉じると、その範囲へのオブジェクト参照が殺されている可能性があります。

rng.Addressを指定されたセル範囲に永久に設定する方法に関するアイデアはありますか？

はい、ちょうどオブジェクトではなくAddressを維持します。 Addressが文字列リテラルであるので、あなたは、オブジェクト参照がスコープ外になる場合でもString変数でこれを保持することができます

Dim addr As String 
If addr = vbNullString 
    addr = Application.InputBox("Select a Range", "Obtain Range Object", Type:=8).Address 
End If 
Set SourceRange = WorkBk.Worksheets(1).Range(addr) 

Answer 2

変数をif文の外側で宣言する必要があります。そうでなければ、if/loop文の外ではアクセスできません。

Answer 3

問題は、Rangeオブジェクトが最初にワークブックに接続されていること、です。したがって、そのブックを閉じると、Rangeオブジェクトが失われます。

必要がありますアドレスを文字列変数に保存すると、すべてのループでアクセスできます。

Dim strAddress as String 
    isExecuted = False 
    Do While FileName <> "" 
     ' Open a workbook in the folder 
     Set WorkBk = Workbooks.Open(Folder & "\" & FileName) 

      ' Conditional to select range only once 
      If Not isExecuted Then 

       Dim rng As Range 
       Set rng = Application.InputBox("Select a Range", "Obtain Range Object", Type:=8) 
       Debug.Print (rng.Address) 
       MsgBox "The cells selected were " & rng.Address 
       strAddress = rng.Address 
       isExecuted = True 

      End If 


     Set SourceRange = WorkBk.Worksheets(1).Range(strAddress) 

    ' more stuff goes here