- 帖子
- 745
- 主題
- 242
- 精華
- 0
- 積分
- 1000
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-4-18
|
[分享] 轉換ie物件語法為Selenium(chrome) ?
Sub IE345678()
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate "https://mis.twse.com.tw/stock/group.jsp?type=fixed&ex=tse&ind=TIDX#STATISTICS"
Do While Ie.Busy Or Ie.ReadyState <> 4: DoEvents: Loop
Dim I As Integer, S As Integer, k As Integer, J As Integer
Dim Element
Set Element = Ie.document.getelementsbytagname("table")
With Sheets("sheet1")
.Range("a1:f17").ClearContents
For S = 4 To 5
For I = 0 To Element(S).Rows.Length - 1
k = k + 1
For J = 0 To Element(S).Rows(I).Cells.Length - 1
.Cells(k, J + 1) = Element(S).Rows(I).Cells(J).innerText
Next
Next
Next
End With
Set Element = Nothing
end sub
請教此ie物件如何轉換成Selenium(chrome)的語法? |
|
發表於 2022-9-23 06:38
| 
