- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 4# lcctno
¤pקï¤@¤U¡AÀ³¸Ó¥i¥H- Sub §Y®É²bÈ()
- Application.ScreenUpdating = False
- Cells.Delete
- Dim E As Object, myItems As Object, myitem
- With CreateObject("InternetExplorer.Application")
- .Visible = True
- .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
-
- Application.Wait Now + #12:00:03 AM# '¦³¿ù¦b¶}±Ò
- Set myItems = .Document.getElementsByTagName("button")
- For Each myitem In myItems
-
- 'Application.Wait Now + #12:00:00 AM# '¦³¿ù¦b¶}±Ò
-
- If myitem.Name = "Agree" Then
-
- myitem.Click '«ö¤U°e¥X¬d¸ß«ö¶s
- End If
- Next
- Set E = .Document.getElementsByTagName("TABLE")(21)
- .Document.body.innerHTML = E.outerHTML
- .ExecWB 17, 2 ' Select All
- .ExecWB 12, 2 ' Copy selection
- With ActiveSheet
- '.Cells.Clear
- .[A1].Select
- .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
- End With
- .Quit 'Ãö³¬ºô¶
- End With
- x = Cells(Rows.Count, 2).End(xlUp).Row
- For A = x To 6 Step -1
- If Cells(A, 4) = "" Then
- Rows(A).Delete
- End If
- Next
- Columns(1).Delete
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|