作者anthony34500 (安東尼's life)
看板Office
標題[問題] 請教VBA 網址參數問題
時間Thu Mar 8 16:50:30 2018
各位大大好!
小弟嘗試用錄製巨集 從網頁上抓下資訊
現在有遇到卡關問題如下:
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://webptt.com/m.aspx?n=bbs/Office/M.1520499034.A.FF1.html
3F:→ soyoso: tm"的方式。如要帶入複數以上的值的話,再配合迴圈 03/08 17:18