excel - VBA如何检查工作表名称是否为数字

Question

我在我的 VBA 子程序中输入了以下代码：

Sub copy2sheet()
Dim wkSht As Worksheet    
    For Each wkSht In Sheets
        If IsNumeric(wkShrt.Name) Then
            Worksheets("Anleitung").Range("A1") = "a"
        Else
            Worksheets("Anleitung").Range("B1") = "a"
        End If
    Next
End Sub

我只需要使用那些具有数字名称的工作表（它们都是“yymmdd”形式）继续以下过程。但是，执行它会给我一个 424 运行时错误。

有任何想法吗？

谢谢！

Answer 1

您在第 4 行有一个错字，它给出了Error 424 Object Required：

If IsNumeric(wkShrt.Name) Then

应该

If IsNumeric(wkSht.Name) Then