作者icene (kkk)
看板Web_Design
标题Re: [问题] 请教如何自动抓央行网页利率资料？？(急)
时间Thu May 17 22:30:40 2007
不太懂ㄟ
可以讲的详细一点吗？
我之前一度可以查的到，但现在又不行了 @@
我是用excel 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
※ 引述《dontblame (需要程式设计吗)》之铭言：
: 你可以写个中介网址
: 将Get的方式传入之参数
: 再以 Post 的方式 传到目的网址
: 达到查询的功能
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.217.218.206