返回列表 上一主題 發帖

[發問] 無法匯入PCHOME 股市資料

chairmen100

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
註冊時間
2013-9-21 
最後登錄
2015-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-26 21:33 | 顯示全部帖子

[發問] 無法匯入PCHOME 股市資料

我想要匯入PCHOME 股市資料 如下卻都是空白 或是從"資料"->從WEB 卻得到 此WEB查詢沒有資料傳回 的錯誤訊息 有高手可以解惑嗎

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html", Destination:=Range( _
        "A1"))
收藏 分享

chairmen100

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
註冊時間
2013-9-21 
最後登錄
2015-8-10 
2#
發表於 2013-9-27 19:56 | 顯示全部帖子
回復 2# GBKEE


   感謝G大 結果符合期望

TOP

chairmen100

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Win8 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
註冊時間
2013-9-21 
最後登錄
2015-8-10 
3#
發表於 2013-11-9 22:08 | 顯示全部帖子
請教 G大大 , 如果輸入錯誤股票代碼 網頁顯示查無資料 導致停在 DoEvents 無限迴圈 如何加入錯誤檢查"查無資料" 謝謝

.Navigate "http://pchome.syspower.com.tw/stock/sto0/ock2/sid" & Stock & ".html"
        .Visible = True
        Do While .Busy Or .ReadyState <> 4
             DoEvents
        Loop

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題