如何選擇一個工作表，如果它包含一個數字

Question

這似乎是一個基本問題，但一直無法排除故障或在網上找到任何東西。我有一個基於客戶編號創建工作表的宏。我需要操作的工作表是客戶編號表，其餘工作表有文本名稱。是否可以識別本質上是數字的表格名稱？客戶名稱都是6位數字，但除此之外可以是數字的任意組合。

我已經在網上查找，我可以找到的所有循環都使用某種類型的常數名稱或數字來選擇給定的工作表。

示例表名稱：

606278 705213 134875 MainInformation  

反正是有選擇給沒有編號慣例這些片材，只是他們總是6個位數？

Answer 1

這個怎麼樣作爲一個例子：

Public Sub DoWorkbooks() 
    Dim wks As Worksheet 

    For Each wks In ThisWorkbook.Worksheets 
     If Len(wks.Name) = 6 And IsNumeric(wks.Name) Then 

     Debug.Print wks.Name 
     End If 
    Next 

End Sub