[發問] 字串...物件化?! 目的:Call 字串

VBALearner

請教各位高手
小弟想呼叫一個程序 名稱是我指定的"字串"

1. sub 中控台()
   
2. a = inputbox("numbers......")
   
3. Call 程序a '如果a是10，就要 Call 程序10
   
4. ...
   
5. end sub

複製代碼

可是現在我卡在Call 後面不能是字串... 也就是 :  "程序" & a
請問各位大大有沒有遇過這種需求O___Q
還請協助小弟 感激不盡...

lpk187

回復 1# VBALearner


    換個角度思考，世界會更廣！

1. Dim a As Integer
   
2. 
   
3. Sub Main()
   
4.     a = InputBox("要執行哪個程序")
   
5.     程序
   
6. End Sub
   
7. 
   
8. Sub 程序()
   
9.     Select Case a
   
10.         Case 1
    
11.             '放入程序1的程式碼.............
    
12.             MsgBox ("目前使用的是程序A")
    
13.         Case 2
    
14.             '放入程序2的程式碼.............
    
15.             MsgBox ("目前使用的是程序B")
    
16.         Case 3
    
17.             '放入程序3的程式碼.............
    
18.             MsgBox ("目前使用的是程序C")
    
19.     End Select
    
20. End Sub

複製代碼

jackyq

請善用 Google 大神
Application.Run

lpk187

回復 1# VBALearner

1. Sub Main()
   
2.     a = InputBox("要執行哪個程序")
   
3.     Run ("程序" & a)
   
4. End Sub
   
5. Sub 程序1()
   
6.     MsgBox ("目前使用的是程序1")
   
7. End Sub
   
8. Sub 程序2()
   
9.     MsgBox ("目前使用的是程序2")
   
10. End Sub
    
11. Sub 程序3()
    
12.     MsgBox ("目前使用的是程序3")
    
13. End Sub
    
14. Sub 程序4()
    
15.     MsgBox ("目前使用的是程序4")
    
16. End Sub

複製代碼

VBALearner

回復 1# VBALearner

恩....感謝您的回答:D 雖然我的目的不能用select case的方式達成，不過還是感謝您!

VBALearner

回復 3# jackyq

我完全不知道該如何在Google搜尋欄位裡表達我的問題，有點複雜而且不是大家常遇到的狀況xD
第一次看到run這個語法呢，是可以去Google一下，有問題再回來詢問您，謝謝回覆!

VBALearner

回復 4# lpk187

喔喔我沒有先看到您的這篇回覆，run完全解決這問題! 感謝您~~~
可以傳遞引數真是太棒了>w<
application.run 程序名,引數