- 帖子
- 81
- 主題
- 3
- 精華
- 0
- 積分
- 95
- 點名
- 304
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-29
- 最後登錄
- 2026-11-1
            
|
[發問]VBA抓取.PHP頁問題??
各位先進
不才在網路上看到一段抓取櫃買.php的資料,原文如下
Sub Macro1()
Dim i As Integer, j As Integer, k As Integer
URL$ = "http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php"
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate URL
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
.Document.all("input_stock_code").Value = 6121 '要查的代碼
.Document.all(1758).Click <=====巨集執行到此就錯誤,請問這一行是為何意,找了很久查不出是何意
Application.Wait Now + TimeValue("00:00:02") '等待2秒更新資料
Set tmp = .Document.getelementsbytagname("table")(79) <==== (79)又是何意??
k = 1
Cells(k, 1) = tmp.Rows(0).innertext
Cells(k, 1).WrapText = False
For i = 1 To tmp.Rows.Length - 1
k = k + 1
For j = 0 To tmp.Rows(i).all.Length - 1
Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
Next
Next
k = k + 1
Set tmp = .Document.getelementsbytagname("table")(82)<==== (82)又是何意??
For i = 0 To tmp.Rows.Length - 1
k = k + 1
For j = 0 To tmp.Rows(i).all.Length - 1
Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
Next
因原網頁就在輸入 6121 就停住了,未能觸發網頁帶出資料,故後續的 table 就無法抓出數據帶入execl,請問先進需如何修改才好..TKS!! |
|
發表於 2012-3-2 08:37
| 
