- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 2# PKKO
¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- Dim E As Object, T As Date, R As Integer, C As Integer
- With CreateObject("InternetExplorer.Application")
- .Visible = True
- .Navigate "https://mops.twse.com.tw/mops/web/t05st10_ifrs"
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- ' .Document.GETELEMENTBYID("co_id").Value = "2317"
- For Each E In .Document.all.tags("INPUT")
- If E.ID = "co_id" Then E.Value = "2317"
- If E.Value = " ¬d¸ß " Then E.Click: Exit For
- Next
- T = Time
- Do While .Busy Or .readyState <> 4 Or Time < (T + #12:00:02 AM#): DoEvents: Loop
- Set E = .Document.all.tags("TABLE")(15)
- For R = 0 To E.Rows.Length - 1
- For C = 0 To E.Rows(R).Cells.Length - 1
- ActiveSheet.Cells(R + 1, C + 1) = E.Rows(R).Cells(C).INNERTEXT
- Next
- Next
- .Quit
- End With
- End Sub
½Æ»s¥N½X |
|