作者:
powilly (隨緣吧~)
2018-03-02 14:05:18軟體 : 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
作者: soyoso (我是耀宗) 2018-03-02 14:09:00
字串連接符號為&，儲存格可以range(儲存格字串)或以cells
作者:
powilly (隨緣吧~)
2018-03-02 14:17:00請問可以直接修改在雙冒號內嗎？ 例如 “URL; ...Range("B3")“ 修改這樣會出錯說
作者: soyoso (我是耀宗) 2018-03-02 14:17:00
"url;...." & range("b3") & 字串
作者: soyoso (我是耀宗) 2018-03-02 14:21:00
"url;https//www....code=" & range & "&ct..text="&range & "..."
作者:
powilly (隨緣吧~)
2018-03-02 14:29:00感謝大大, 我來試試看
作者: soyoso (我是耀宗) 2018-03-02 14:31:00
如網址參數要yyyy/mm/dd且儲存格是符合日期序列值的話以format來調整格式；如儲存格為文字類型且填入上為yyyy/mm/dd的話則不用或是有以儲存格格式將符合日期序列值調整為yyyy/mm/dd的話再以range.text來抓取
作者:
powilly (隨緣吧~)
2018-03-02 14:39:00太感謝了, 早知道就早點來問, 困擾好久