循环VBA后变量值被遗忘

Question

我目前正在尝试设置一个Do While 循环，其中循环的一部分只执行一次。我正在有效地尝试为一张工作表定义一个单元格范围，然后让我的循环将此相同的单元格范围应用于所有工作表/工作簿，而无需重新指定范围。

这是我目前所拥有的：

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 是指定的单元格范围。但是，在第二个循环中，rng.Address 变为<ObjectRequired>，因此脚本的其余部分将失败。关于如何将 rng.Address 永久设置为指定单元格范围的任何想法？

Answer 1

如果没有看到更多代码，很难说具体问题是什么，但我建议使用更简洁的逻辑，例如：

    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

这样做：

If rng is Nothing Then
    Set rng = Application.InputBox("Select a Range", "Obtain Range Object", Type:=8)
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

问题是，范围对象连接到第一个工作簿。因此，当您关闭该工作簿时，范围对象将丢失。

您需要将地址保存在字符串变量中，这样您就可以在每个循环中访问它。

    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

Answer 3

您需要在 if 语句之外声明变量，最好在循环之外声明。否则你不能在 if/loop 语句之外访问它。