各位老師vba求教 - 改善获取指定頁的程式 內有程序代码!

marco2000

1. Private Sub OptionButton1_Click() 'for default page
   
2. Dim Arr(1 To 10) As String
   
3. 'Dim thisworkbook As Workbook
   
4. '以下是档案名,XXX是会变动,但后边的数字是不会
   
5. '希望做到提取每个表名最后的四个字符进行匹配，再添加至列表。
   
6. Arr(1) = "XXX1109"
   
7. Arr(2) = "XXX1160"
   
8. Arr(3) = "XXX1150"
   
9. Arr(4) = "XXX1110"
   
10. Arr(5) = "XXX1130"
    
11. Arr(6) = "XXX1141"
    
12. Arr(7) = "XXX1171"
    
13. Arr(8) = "XXX1172"
    
14. Arr(9) = "XXX1173"
    
15. Arr(10) = "XXX1176"
    
16. 
    
17. 
    
18. 
    
19. For A = 1 To 10
    
20. UserForm1.ListBox2.AddItem (Arr(A))
    
21. Next A
    
22. 
    
23. 
    
24. End Sub

复制代码

各位老师,我想选取指定的excel页,共有20页

我现在写的方法是定了档名​​arr(1)xxx1109,

举例第一个是xxx1109,当页名是xxx1109


就会在ListBox显示,但xxx是会变动的,数字就不会变

xxx一转,如改成页名zzzz1109 我就选取不到了

有方法用搜查数字,从而选取xxx1109/zzzz1109吗?


我的意思就是遍历所有表格名称
然后提取每个表名称最后的四个字符进行匹配，再添加进列表。
請問各位可以寫程序代码出來教教我嗎??


上傳了附件,求教

marco2000

剛的沒有sub,現在更新了