作者powilly (随缘吧~)
看板Office
标题[问题] EXCEL VBA 将网址修改成有变数
时间Fri Mar 2 14:05:18 2018
软体 : EXCEL VBA
版本 : Office 2013
请问大家, 我想要将巨集录制完成的股市下载程式码, 里面含有网址的部分
修改成储存格变数, 让我可以在指定的储存格修改资料,
但是就是不会修改网址的部分, 请大家帮忙看一下
想将网址内的三个地方变成储存格变数:1.股票代号 2.起始日期 3.结束日期 如下
1. 1101
2. 2017/01/01
3. 2017/03/28
请问可以怎麽修改呢?感谢
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;
https://www.cnyes.com/twstock/ps_historyprice.aspx?code=1101&ctl00$ContentPlaceHolder1$startText=2017/01/01&ctl00$ContentPlaceHolder1$endText=2017/03/28" _
, Destination:=Range("$H$2"))
'.CommandType = 0
.Name = "28"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=True
End With
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.120.41.52
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1519970721.A.6D9.html
1F：→ soyoso: 字串连接符号为&，储存格可以range(储存格字串)或以cells 03/02 14:09
2F：→ powilly: 请问可以直接修改在双冒号内吗？ 例如 “URL; ...Range(" 03/02 14:17
3F：→ powilly: B3")“ 修改这样会出错说 03/02 14:17
4F：→ soyoso: "url;...." & range("b3") & 字串 03/02 14:17
5F：→ powilly: 请问大大可以示范一下吗? 03/02 14:17
6F：→ soyoso: "url;https//www....code=" & range & "&ct..text="& 03/02 14:21
7F：→ soyoso: range & "..." 03/02 14:22
8F：→ powilly: 感谢大大, 我来试试看 03/02 14:29
9F：→ soyoso: 如网址参数要yyyy/mm/dd且储存格是符合日期序列值的话 03/02 14:31
10F：→ soyoso: 以format来调整格式；如储存格为文字类型且填入上为yyyy/m 03/02 14:32
11F：→ soyoso: m/dd的话则不用 03/02 14:32
12F：→ soyoso: 或是有以储存格格式将符合日期序列值调整为yyyy/mm/dd的话 03/02 14:34
13F：→ soyoso: 再以range.text来抓取 03/02 14:34
14F：→ powilly: 太感谢了, 早知道就早点来问, 困扰好久 03/02 14:39