返回列表 上一主題 發帖

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

whoislee

帖子
3 
主題
2 
精華
0 
積分
13 
點名
0  
作業系統
WIn10 
軟體版本
OFFICE2013 
閱讀權限
10 
性別
男 
註冊時間
2018-6-3 
最後登錄
2018-9-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-9-8 16:38 | 只看該作者

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

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

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

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-9-10 05:08 | 只看該作者
回復 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")
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題