作者icene (kkk)
看板Visual_Basic
标题[VBA ] 请教如何自动抓央行网页利率资料？？(急)
时间Thu May 17 23:25:09 2007
请问一下，我之前在以下的网址後面打.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
1F：推 yantchen:你搞错罗 表单传送的是post 网址打?xxx=yyy 是get喔 05/18 01:46
2F：嘘 foxhell:跨版PO文...WEB Design版有这里也有.... 05/18 05:56
3F：→ icene:ㄟ 楼上的，有啥好嘘，webdesgin版没得到解决方法 05/18 09:58
4F：→ icene:我才转到这边来问的，版规没规定不能跨版波文， 05/18 09:59
5F：→ icene:我问的问题跟VB有关，有啥不能问的..... 05/18 09:59