[VBA ] 請教如何自動抓央行網頁利率資料??(急)
請問一下,我之前在以下的網址後面打.asp?CompanyNo=0040000
他會自動連到銀行利率網頁
http://www.cbc.gov.tw/gopher/chi/busd/bkrate/interestrate.asp?CompanyNo=0040000
但現在卻出現error訊息。
我想要有一個網址,直接就連到銀行利率資料
而不是還要用網頁點選,一個一個點進去看。
http://www.cbc.gov.tw/gopher/chi/busd/bkrate/banklist1.asp
像我在上面這個網頁,按右鍵 檢視原始檔
找到一段文字
<input type='radio' name='CompanyNo' value='0010000' id='CompanyNo_0'
所以我猜 .asp後面加個 ?CompanyNo=0040000
會讓網頁去作查詢這個指令
有人說 這是網頁寫法 用 get方式 就可以用excel vba作查詢
但現在用 post方式就無解。
請問有什麼方法可以讓程式 模擬 查詢網頁的指令,就像程式自動幫我
去點選每個銀行網頁,並把資料抓下來呢?
我之前的VBA 程式碼
/////////////////////////////////////////////////////////////////////
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.cbc.gov.tw/gopher/chi/busd/bkrate/interestrate.asp", _
Destination:=Range("A1"))
.Name = "interestrate"
.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 = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.CommandBars("External Data").Visible = False
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.217.218.206
推
05/18 01:46, , 1F
05/18 01:46, 1F
噓
05/18 05:56, , 2F
05/18 05:56, 2F
→
05/18 09:58, , 3F
05/18 09:58, 3F
→
05/18 09:59, , 4F
05/18 09:59, 4F
→
05/18 09:59, , 5F
05/18 09:59, 5F