[問題] 請教VBA 網址參數問題

[anthony34500 (安東尼's life)]

各位大大好!

小弟嘗試用錄製巨集 從網頁上抓下資訊

現在有遇到卡關問題如下:

  Range("C111").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://jdata.yuanta.com.tw/z/zc/zcp/zcpb/zcpb_3010.djhtm", Destination:= _
        Range("$C$111"))
        .Name = "zcpb_3010.djhtm"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False

以上的程式碼裡面有3010部分 如果想改成其他數字譬如 2330

如果不從網址改程式碼語言該如何做取代動作
(PS.因為程式碼有至少8個3010代號,要修改8次網址,
請教大大該如何下程式語言 只要變更指令就能將3010一次更改成
所需要的代碼數字)

有找類似文章 用text 該如何去做一個撰寫?
感謝了!!

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.237.211.35
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1520499034.A.FF1.html
→ soyoso: 將"url;http://....3010.djhtm"字串，其中的3010方面以儲
→ soyoso: 存格的值來帶，如"url;http://....zcpb_" & range & ".djh
→ soyoso: tm"的方式。如要帶入複數以上的值的話，再配合迴圈