Question

我一直收到“运行时错误'91'：对象变量或未设置块变量”错误。当我单击调试按钮时，“ Debug.Print sht.Name”以黄色突出显示。我要做的就是循环遍历工作表并进入程序（F8），并观察“立即”框中显示的工作表名称。谢谢。

Option Explicit

Sub LoopSheets()

Dim WS_Count As Integer
Dim I As Integer
Dim sht As Worksheet

WS_Count = ActiveWorkbook.Worksheets.Count


For I = 4 To WS_Count
    Debug.Print sht.Name
Next I

End Sub

Answer 1

我并没有真正理解为什么您要从第4张纸开始循环播放，但是要打印出所有工作表名称，您可以使用以下代码完成操作：

Option Explicit

Sub LoopSheets()
Dim sht As Worksheet

    For Each sht In ActiveWorkbook.Worksheets
        Debug.Print sht.Name
    Next sht

End Sub

希望这可以帮助您实现目标。：）

运行时错误91协助

1 个答案: