請問如何抓取javascript的*.csv檔案？

帖子: 9
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: Windows 7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-6-7
最後登錄: 2014-1-25

5^# 跳轉到 »

發表於 2014-1-2 12:24 | 只看該作者

太感謝了！

我發現有些表格是多於一筆資料的，所以一個管制編號的資料有可能會有一筆、兩筆甚至10筆，例如這裡：

http://prtr.epa.gov.tw/resultEMS.aspx?emsno=E4901607&tab=Panel5

我爬了一下文並google，本來想用ResultRange.Rows.Count這個指令來算table的列數後，先以Range().EntireRow.insert插入所需要的列數，然後再以ResultRange.Rows(i)加入數據，但怎麼試都是空白，不知道大大有沒有好的辦法？

謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-1-1 13:38 | 只看該作者

回復 3# torrent

試試看

Option Explicit
Sub Ex()
Dim Sh As Worksheet, Rng As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Rng = Sheets("Sheet1").Range("A2")
On Error Resume Next
Set Sh = Sheets.Add
With Sh.QueryTables.Add("URL;http://prtr.epa.gov.tw/resultEMS.aspx?emsno=" & Rng & "&tab=Panel5", Sh.[A1])
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """GridView5"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Do While Rng <> ""
With Sh.QueryTables(1)
Rng.Offset(, 1).Range("A1:I1").Value = IIf(Err.Number = 0, Sh.QueryTables(1).ResultRange.Rows(2).Value, "")
Err.Clear
Set Rng = Rng.Offset(1)
.Connection = "URL;http://prtr.epa.gov.tw/resultEMS.aspx?emsno=" & Rng & "&tab=Panel5"
.Refresh BackgroundQuery:=False
End With
Loop
Sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub