Re: [算表] 用VBA抓網頁特定表格
直接用 A1 =E41 就可以抓到值了,記得以後要先將資料刪除,再重抓!
Sub 抓差額()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://eb.sysnet.net.tw/finance/inc.php3?select=tfdata&id=1101#head", _
Destination:=Range("B1"))
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub
※ 引述《Uber (傳說中的小強)》之銘言:
: 軟體:excel
: 版本:2003
: 爬文之後還是對於抓網頁特定表格不太能完全掌握...
: 我打算抓這個網頁:
: http://eb.sysnet.net.tw/finance/inc.php3?select=tfdata&id=1101#head
: 但是這個網頁看原始碼有三個page,我只需要一個值,
: 就是最底下(第三個大表格)的最新差額值(目前是-960)
: http://farm3.static.flickr.com/2722/4121598899_cf71268f26_o.jpg
: 問題一:嘗試了以下的程式碼,但是傳不回任何東西....不知道問題出在哪...? ToT
: 問題二:原始碼有三頁的表格,不知道我要抓的表格編號是從第三個表頭開始數,
: 還是從第一個表格開始數呢....?
: Sub 抓差額()
: With ActiveSheet.QueryTables.Add(Connection:= _
: "URL;http://eb.sysnet.net.tw/finance/inc.php3?select=tfdata&id=1101#head",
: Destination:=Range("B1"))
: .WebFormatting = xlWebFormattingNone
: .WebTables = "230"
: .RefreshOnFileOpen = False
: .BackgroundQuery = True
: .SaveData = True
: .RefreshPeriod = 0
: .WebSelectionType = xlSpecifiedTables
: End With
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.225.17.204
推
11/23 00:31, , 1F
11/23 00:31, 1F
→
11/23 00:31, , 2F
11/23 00:31, 2F
討論串 (同標題文章)