各位大大好!
小弟嘗試用錄製巨集 從網頁上抓下資訊
現在有遇到卡關問題如下:
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 該如何去做一個撰寫?
感謝了!!

將"url;http://....3010.djhtm"字串，其中的3010方面以儲存格的值來帶，如"url;http://....zcpb_" & range & ".djhtm"的方式。如要帶入複數以上的值的話，再配合迴圈