各位大大好!
小弟尝试用录制宏 从网页上抓下资讯
现在有遇到卡关问题如下:
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"的方式。如要带入复数以上的值的话，再配合循环