- 帖子
- 62
- 主題
- 14
- 精華
- 0
- 積分
- 86
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- offffice2013
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2016-8-23
- 最後登錄
- 2017-11-5
|
輸入股票代號,資料內容顯示於已編輯的表格內
各位大大好~有小小問題想請教
目前還在學習VB中,希望藉由實務的修改
從中間開始研究,學習VB
目前功能：
可以在A1輸入代號查詢股利資料
並且顯示在A3
但~表格不能編輯
問題：
▲我需要編輯,想要自行設計一個表格格式
讓A3輸出的資料在我編輯好的表格格式內
▲A1輸入不是正確的股票代號時,或者空格沒輸入
能否在B1顯示"請輸入正確股票代號"
請問以上如何實現?
以下是程式代碼- Private Sub CommandButton1_Click()
- Dim strURL$ '宣告strURL為變數
- strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html" '定義strURL變數內容
- [A3].CurrentRegion.Clear
- With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
- .WebFormatting = xlWebFormattingNone '(NONE)不包含格式,(ALL)包含格式
- .WebSelectionType = xlSpecifiedTables '指定table表格模式
- .WebTables = "8" '第8個table表格
- .Refresh False
- End With
- End Sub
|
|
發表於 2016-8-28 15:52
| 
