- 帖子
- 161
- 主題
- 26
- 精華
- 0
- 積分
- 187
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2011-1-2
- 最後登錄
- 2022-2-16
|
回復 14# GBKEE - Sub GetIncome() '取損益表(年表)網頁
- Dim Url, HTMLsourcecode, GetXml, TableG, i, j
- Set HTMLsourcecode = CreateObject("htmlfile")
- Set GetXml = CreateObject("msxml2.xmlhttp")
- Url = "http://kgieworld.moneydj.com/z/zc/zcq/zcqa/zcqa_2330.djhtm"
- With GetXml
- .Open "GET", Url, False
- .Send
- HTMLsourcecode.body.innerhtml = .Responsetext
- Set TableG = HTMLsourcecode.getelementsbyclassname("table-row")
- '***網頁的編碼**********************************
- '<div class="table-row"> 為所要的資料 的網頁元素
- '<span class="t2 table-cell">期別</span>
- '<span class="t2 table-cell">2020</span>
- '<span class="t2 table-cell">2019</span>
- '<span class="t2 table-cell">2018</span>
- '<span class="t2 table-cell">2017</span>
- '<span class="t2 table-cell">2016</span>
- '<span class="t2 table-cell">2015</span>
- '<span class="t2 table-cell">2014</span>
- '<span class="t2 table-cell">2013</span>
- '</div>************************************
- For i = 0 To TableG.Length - 1
- For j = 0 To TableG(i).all.tags("span").Length - 1
- Cells(i + 1, j + 1) = TableG(i).all.tags("span")(j).innertext
- Next j
- Next i
- End With
- Set HTMLsourcecode = Nothing '釋放記憶體
- Set GetXml = Nothing
- End Sub '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set TableG = HTMLsourcecode.getelementsbyclassname("table-row")
這行會誤，是否版本的問題
謝謝 版大 |
-
-
Image 7.jpg
(95.22 KB)
|
發表於 2022-1-11 19:35
| 
