软件 : 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