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

#excel #vba

Pinky 2021-03-12 19:18:17 ‧ 3288 瀏覽

分享至

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

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

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

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

koro_michael iT邦新手 2 級 ‧ 2021-03-12 19:30:48 檢舉

不太能理解你想要達到什麼效果，有沒有圖文或是檔案範例

rogeryao iT邦超人 7 級 ‧ 2021-03-12 19:32:55 檢舉

不太能理解 +1

"然後我想要用EXCEL 從WEB匯入處要自動將這串網址貼上，可以載入。"
1.WEB匯入 ? 如何匯入 ?
2.這串網址 ? WEB匯入的資料有包含這串網址 ?
3.貼上 ? 貼到哪裡 ?
4.可以載入? 載入啥 ?

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

對不起！我剛註冊，所以還不熟悉介面，也還沒掌握問問題的技巧！
剛剛好不容易完成新手訓練才能來回覆！哈哈！
我會再改進！謝謝大家

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

海綿寶寶

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

回應 3
分享
檢舉

rogeryao iT邦超人 7 級 ‧ 2021-03-12 22:02:28 檢舉

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

海綿寶寶 iT邦大神 1 級 ‧ 2021-03-12 22:20:57 檢舉

跟樂透一樣
沒猜中一切都是白費工夫

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

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

登入發表回應

paicheng0111

iT邦大師 5 級 ‧ 2021-03-12 21:39:29

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

Dim ConnStr As String

ConnStr = "URL;" & Range("A2").Valule

回應 1
分享
檢舉

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

謝謝您

登入發表回應

rogeryao

iT邦超人 7 級 ‧ 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 有教學

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

回應 1
分享
檢舉

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

謝謝您

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22201 篇

完賽人數

602 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙