推 yantchen:你搞錯囉 表單傳送的是post 網址打?xxx=yyy 是get喔 05/18 01:46
噓 foxhell:跨版PO文...WEB Design版有這裡也有.... 05/18 05:56
→ icene:ㄟ 樓上的，有啥好噓，webdesgin版沒得到解決方法 05/18 09:58
→ icene:我才轉到這邊來問的，版規沒規定不能跨版波文， 05/18 09:59
→ icene:我問的問題跟VB有關，有啥不能問的..... 05/18 09:59
請問一下，我之前在以下的網址後面打.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