返回列表 上一主題 發帖

[發問] 股價VBA的檔案無法更新

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2020-4-1 00:39 | 顯示全部帖子
本帖最後由 n7822123 於 2020-4-1 00:51 編輯

回復 1# abc9gad2016

Yahoo可能有改網頁編寫格式

下面程式的ST2的字串在Yahoo網頁原始碼已經找不到了

原程式是用ST1字串與ST2字串擷取一段需要的原始碼資訊~

坦白說，我不大喜歡他解字串的方式......看的很累...........

原程式如下:


Sub 擷取資料()
Dim ReTxt, i&, ARR, BRR(9), V As Currency, GetTime$
uTxtStr = ""
Call 取得網頁原始碼: If uTxtStr = "" Then Exit Sub
'-----------------------------------------------------
GetStr = ""
ST1 = "href=""/q/bc?s=" & uRng & """>"
ST2 = "<a href=""/q/ts?s=" & uRng & """>成交明細</a>"
GetStr = 擷取文字碼(uTxtStr, ST1, ST2):  If GetStr = "" Then Exit Sub


把上面程式的ST2部分，改成如下就可以了

ST2 = "<a href=""/q/ts?s=" & uRng & """>成交彙整</a>"

明細  >>>  彙整



附上我自己做的部分如下 ，舊板Excel不支援超過7層的函數，公式會失效

但是不影響網路抓資料，我抓的網站是Hi投資，我自認寫的檢短多了~應該吧!



理財策略V1.0.rar (91.56 KB)
1

評分人數

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題