作者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/cn.aspx?n=bbs/Office/M.1520499034.A.FF1.html
3F:→ soyoso: tm"的方式。如要带入复数以上的值的话,再配合回圈 03/08 17:18