作者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/m.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