返回列表 上一主題 發帖

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

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 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

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題