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

看板Office作者anthony34500 (安東尼's life)時間8年前 (2018/03/08 16:50)推噓0(0推 0噓 3→)

留言3則, 1人參與討論串1/1

各位大大好! 小弟嘗試用錄製巨集從網頁上抓下資訊現在有遇到卡關問題如下: 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