[發問] VB 按鈕取TEXTBOX 問題。

whoislee

我想在VB弄一個TEXTBOX,當我輸入了名稱後,按下按鈕他就會開我為這個檔案位置定義了的名稱的檔案出來,例如我設定 123為一個檔案的位置,當我在TEXTBOX中輸入123後再按下按鈕,他會打開我把他設定了123所存在的檔案出來,而我有很多檔案的位置需要設定,請問如何操作,本人是新手,希望能有高手指教一下。

查了一下資料,要在BUTTON內取Button裡面先去取出TextBox1.Caption的值,再用用Switch Case的方法去開檔案,但本人由於是沒有經驗,所以暫不知道如果操作,請指教一下,跪謝。

faye59

回復 1# whoislee


   
請先設計一個Form
在裡面設計一個TextBox及Button
TextBox=指定的檔案名稱
Button=確認程序執行
TextBox可以在屬性中修改name
一般依照TextBox流水編號建置
如第一個建置的TextBox為TextBox1
第二個建置的TextBox為TextBox2
程序中要提取出值寫為

1. TextBox1.Text

複製代碼

如果name修改為ID程序中寫為

1. ID.Text

複製代碼

指定要開啟的檔案類型宣告Object

1. CreateObject(class,[servername])

複製代碼

開啟Excel範例:(片段程序)

1. If name.Text = "" Then
   
2. MsgBox("請輸入檔名", , "狀態訊息")
   
3. Exit Sub
   
4. End If
   
5. Dim WB, XL As Object
   
6. XL = CreateObject("Excel.Application")
   
7. XL.Visible = False
   
8. WB = XL.Workbooks.Open("\\路徑\ & name.Text & ".xlsx")

複製代碼