iT邦幫忙

0

VBA 於EXCEL中抓取某儲存格的網置 自動放到WEB匯入的網址中

我想詢問,
因為我的網址某一段是會異動的,例如:
https://tw.stock.yahoo.com/q/ta?s=2330
這個2330是股號,我會異動。

所以我規劃在某個欄位手動輸入我要查的股號。
因為我會使用SUBSTITE的指令,組出完整的網址。

然後我想要用EXCEL 從WEB匯入處要自動將這串網址貼上,可以載入。

但我發現巨集中網址那段的寫法會是URL;https://tw.stock.yahoo.com/q/ta?s=2330
沒辦法直接使用某儲存格
所以想來請問版上的眾神們,請問有什麼寫法。謝謝

不太能理解你想要達到什麼效果,有沒有圖文或是檔案範例
rogeryao iT邦大師 3 級 ‧ 2021-03-12 19:32:55 檢舉
不太能理解 +1

"然後我想要用EXCEL 從WEB匯入處要自動將這串網址貼上,可以載入。"
1.WEB匯入 ? 如何匯入 ?
2.這串網址 ? WEB匯入的資料有包含這串網址 ?
3.貼上 ? 貼到哪裡 ?
4.可以載入? 載入啥 ?
Pinky iT邦新手 5 級 ‧ 2021-03-14 12:50:14 檢舉
對不起!我剛註冊,所以還不熟悉介面,也還沒掌握問問題的技巧!
剛剛好不容易完成新手訓練才能來回覆!哈哈!
我會再改進!謝謝大家
2
海綿寶寶
iT邦大神 1 級 ‧ 2021-03-12 21:57:24
最佳解答

抓 A1 儲存格當股票代號
匯入資料到 B1

Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://tw.stock.yahoo.com/q/ta?s=" & Range("A1"), Destination:=Range("B1"))
        .Name = "ta?s=2330"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
rogeryao iT邦大師 3 級 ‧ 2021-03-12 22:02:28 檢舉

哇,這樣都猜得出來怎麼寫,太強了.
可否貼一張 Excel 完成的示意圖.

跟樂透一樣
沒猜中一切都是白費工夫
/images/emoticon/emoticon25.gif

Pinky iT邦新手 5 級 ‧ 2021-03-14 12:50:34 檢舉

謝謝大大!我來研究一下!

0
paicheng0111
iT邦高手 1 級 ‧ 2021-03-12 21:39:29

用一個文字變數去串儲存格的值即可。
大概會是

Dim ConnStr As String

ConnStr = "URL;" & Range("A2").Valule
Pinky iT邦新手 5 級 ‧ 2021-03-14 12:50:47 檢舉

謝謝您

0
rogeryao
iT邦大師 3 級 ‧ 2021-03-12 22:31:06

A.請參閱 : 用EXCEL看股票行情─WEB查詢功能之股市即時看盤
B.請參閱 : 股魚網 - [股價監控]用Excel 即時監控股價變化
1.版主用 https://tw.stock.yahoo.com/q/ta?s=2330 抓到的是圖
2.股漁網用 https://tw.stock.yahoo.com/q/q?s=2330 抓到的是價
3.定時更新在 A 的 7:54 有教學

也是猜的....,或許能中樂透....

Pinky iT邦新手 5 級 ‧ 2021-03-14 12:51:04 檢舉

謝謝您

我要發表回答

立即登入回答