返回列表 上一主題 發帖

[發問] 一個用VBA從網頁取得想要資料的寫法~

vesperlee

帖子
15 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-29 
最後登錄
2021-7-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-28 15:09 | 顯示全部帖子

[發問] 一個用VBA從網頁取得想要資料的寫法~

本帖最後由 GBKEE 於 2016-1-15 12:59 編輯

麻煩各位大大幫忙，謝謝，感恩~~~~。


請問~~。我想用VBA製作一個BUTTON，當我按下時能從下面網址捉到我指定的資料，並放入excel的儲存格內。該怎麼寫呢！
我只要捉 以下片段的資料
               
                    張數             佔股本比例
董監持股          21,712         6.04%
集保庫存          364,848      101.44%
六日均量          1,834            0.51%  

相關網址
http://jsjustweb.jihsun.com.tw/z/zc/zcx/zcx_6257.asp.htm
http://jsjustweb.jihsun.com.tw///z/zc/zcx/zcxD1.djjs?A=6257"
收藏 分享

vesperlee

帖子
15 
主題
7 
精華
0 
積分
69 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-29 
最後登錄
2021-7-4 
2#
發表於 2012-5-1 00:54 | 顯示全部帖子
金害~！我只能捉到它的   個股基本資料
為什麼捉不到我要的資料呢？
Private Sub CommandButton1_Click()
Dim webURL As String
webURL = "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcx/zcx_6257.asp.htm"
With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
        ' xlOverwriteCells 表示覆蓋欄位
        .RefreshStyle = xlOverwriteCells
                .WebTables = "1"
        .Refresh BackgroundQuery:=False
End With
End Sub

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題