GBKEE

¦^´_ 3# lcctno
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Object, Ar(), i As Integer
   
4.     Ar = Array("http://www.yuantaetfs.com/#/RtNav/Index", "http://www.yuantaetfs.com/#/Home/Index")
   
5.     'Ar = Array(ºô§}:§Y®É²b­È,ºô§}:°ê¤º«ü¼Æ) ºô§}¸m¤J°}¦C
   
6.     ActiveSheet.UsedRange.Clear
   
7.     For i = 0 To 1
   
8.         With CreateObject("InternetExplorer.Application")
   
9.             .Visible = True
   
10.             .Navigate Ar(i)
    
11.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
12.             If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
    
13.                 Do
    
14.                     Set E = .Document.getElementByid("Agree")
    
15.                 Loop Until Not E Is Nothing
    
16.                 E.Click
    
17.             End If
    
18.             Do
    
19.                 Do
    
20.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
    
21.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
    
22.                 Loop Until Not E Is Nothing
    
23.             Loop Until E.all.Length >= IIf(i = 0, 431, 150) '
    
24.             .Document.body.innerHTML = E.outerHTML
    
25.             .ExecWB 17, 2       '  Select All
    
26.             .ExecWB 12, 2       '  Copy selection
    
27.             With ActiveSheet
    
28.                 .Range("A" & IIf(i = 0, 1, 27)).Select
    
29.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
30.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
    
31.                     .ColorIndex = 35
    
32.                     .Pattern = xlSolid
    
33.                 End With
    
34.             End With
    
35.             .Quit        'Ãö³¬ºô­¶
    
36.         End With
    
37.     Next
    
38. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# lcctno

IE ¬°¦ó·|¤¤Â_³sô? Ie8 «Ü¶¶ºZªº,ADSL 5M/384K
½Ð§iª¾ºô§}¬O i=0 §Y®É²b­È, i=1°ê¤º«ü¼Æ
¦p·|¤¤Â_³sô³o¸Ì´N·|¤F

1. Do
   
2.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
   
3.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
   
4.                 Loop Until Not E Is Nothing

½Æ»s¥N½X

­×§ï¸Õ¸Õ

1. If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
   
2.                 Do
   
3.                     Set E = .Document.getElementByid("Agree")
   
4.                 Loop Until Not E Is Nothing
   
5.                 E.Click
   
6.                 Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
7.             End If

½Æ»s¥N½X

GBKEE

¦^´_ 7# lcctno

·í¤U¥uµo¥Í¦Û°Ê¶}±ÒIE11 °±¦b"5¼Óªº¹Ï1.
¦¹µ{¦¡°õ¦æ«á·|¦^¨ìVBA½s¿èµøµ¡,¨Ã¥´¶}'§Y®É¹Bºâ"ªºµøµ¡
½Ð²Ä¤@­ÓSTOP ¤§«á«ö¤UF5
¦p°±¯d¦bVBA½s¿èµøµ¡,"§Y®É¹Bºâ"¤@ª½¦³¦r¦ê¥X²{,¥Nªíµ{¦¡¤@ª½¦bµ¥«áIEªº¸ê®Æ,¬OIE ªº°ÝÃD
**½Ð­@¤ßµ¥­Ô¨ì¤U ¤@­Ó STOP ¤§«á«ö¤UF5 **

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Object, Ar(), i As Integer
   
4.     Ar = Array("http://www.yuantaetfs.com/#/RtNav/Index", "http://www.yuantaetfs.com/#/Home/Index")
   
5.     'Ar = Array(ºô§}:§Y®É²b­È,ºô§}:°ê¤º«ü¼Æ) ºô§}¸m¤J°}¦C
   
6.     ActiveSheet.UsedRange.Clear
   
7.     For i = 0 To 1
   
8.         With CreateObject("InternetExplorer.Application")
   
9.             .Visible = True
   
10.             .Navigate Ar(i)
    
11.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
12.             If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
    
13.                 Do
    
14.                     Set E = .Document.getElementByid("Agree")
    
15.                 Loop Until Not E Is Nothing
    
16.                 E.Click
    
17.             End If
    
18.             .Visible = False
    
19.             Application.VBE.MainWindow.Visible = True
    
20.             Application.VBE.Windows("§Y®É¹Bºâ").Visible = True
    
21.             Stop  '¤§«á«ö¤UF5
    
22.             Do
    
23.                 Do
    
24.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
    
25.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
    
26.                     Debug.Print i, "e Is Nothing ->", E Is Nothing
    
27.                 Loop Until Not E Is Nothing
    
28.                     Debug.Print i, "e Is Nothing ->", E Is Nothing, "e.all.Length", E.all.Length
    
29.             Loop Until E.all.Length >= IIf(i = 0, 431, 150) '
    
30.             Stop  '¤§«á«ö¤UF5
    
31.             
    
32.             Application.VBE.Windows("§Y®É¹Bºâ").Visible = False
    
33.             Application.VBE.MainWindow.Visible = False
    
34.             .Document.body.innerHTML = E.outerHTML
    
35.             .ExecWB 17, 2       '  Select All
    
36.             .ExecWB 12, 2       '  Copy selection
    
37.             With ActiveSheet
    
38.                 .Range("A" & IIf(i = 0, 1, 27)).Select
    
39.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
40.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
    
41.                     .ColorIndex = 35
    
42.                     .Pattern = xlSolid
    
43.                 End With
    
44.             End With
    
45.             .Quit        'Ãö³¬ºô­¶
    
46.         End With
    
47.     Next
    
48. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# no3-taco
¦^´_ 9# azrael19
½Ð°Ý¨â¦ìªºieª©¥»,
no3-taco ´£¨Ñªº, MsgBox E.all.Length¬O¦h¤Ö,

1. Loop Until E.all.Length >= IIf(i = 0, 431, 150)

½Æ»s¥N½X

³oµ{¦¡½X¬°¦ó¦bie8 ¨S°ÝÃD, lcctno ªºie µLªk°õ¦æ.
¨â¦ìªºIE ¤]·|¦³³o¼Ëªº°ÝÃD¶Ü?

GBKEE

¦^´_ 21# no3-taco
ÁÂÁ§AªºµªÂÐ.
¥Ñ©ó§Úªº³nÅé(xp,2003)¤@ª½¨S¤É¯Å,©Ò¥H¦b¦^ÂФW¦³¨Ç¸¨®t.(«Ü©êºp)
¦A½Ð±Ð ²Ä10©«ªºµ{¦¡½X,¬°¦ó«D2003ª©,«Die8 ¤W°õ¦æ¦³»yªkªº¿ù»~.
¥i§_ À°¦£­×¥¿¤@¤U.

1. Loop Until InStr(1, E.outerHTML, IIf(i = 0, "º­²`¤Ï", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))

½Æ»s¥N½X

±ø¥ó¤½¦¡¶Ç¦^ªº¼Æ­È 0=False, ¤£µ¥©ó0³£¬°True

GBKEE

¦^´_ 27# lcctno
no3-taco  ,azrael19 ´£¨Ñ
win7, IE 10 , office2010
win7 , IE 11 , office2013
»Ý­n§ï¦¨³o¼Ë

1. E.all.Length >= IIf(i = 0, 415, 135)

½Æ»s¥N½X

§ä¥X »yªk¿ù»~,²Ä2­ÓStop µù¸Ñ²Å¸¹¨S¼Ð¦n, §A´£¨Ñªº¹Ï¥Ü­è¦n¾×¦í .
½Ð­×§ï«á¸Õ¸Õ¬Ý.

1. Stop  '¤§«á«ö¤UF5

½Æ»s¥N½X

azrael19 ´£¨Ñªº»yªk
E.getElementsByClassName("ng-binding upcolor")
ie8¤£¤ä´©.

GBKEE

¦^´_ 29# no3-taco
±ø¥ó¬O¶Ç¦^ªº­È True °õ¦æ, False ¤£°õ¦æ

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), E As Variant
   
4.     AR = Array(1, 5, 0, -1, -2)
   
5.     For Each E In AR
   
6.          'MsgBox E & " = " & IIf(E, True, False)
   
7.          If E Then MsgBox E
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 31# lcctno

¤U¸ü (66.6 KB)

2015-7-27 10:24

   
§Avba ªº¤u§@ªíª«¥ó¦WºÙ»Pµ{¦¡½Xªºµ{§Ç¦WºÙ¬Û¦Pªº½Ä¬ð.¶·­×§ï
¦X1(¦X1)

GBKEE

¦^´_ 33# lcctno
§A¦A¸Õ¤@¦¸, §Y®É²b­È ¦X1 ¦X2 ¯à¥¿±`¹B§@?
2003­×§ïSub ¦X3 ªº¦WºÙ ,¦p Sub test ´N¥i¥H¤F,¦A¸Õ¸Õ¬Ý
¤]¥i½Ð no3-taco  ,azrael19 ¥Î2010,2013 ¸Õ¸Õ¬Ý

GBKEE

¦^´_ 35# no3-taco
0< ¥i¬Ù²¤±¼

1. Loop Until InStr(1, E.outerHTML, IIf(i = 0, "º­²`¤Ï", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))
   
2. Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "º­²`¤Ï", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))

½Æ»s¥N½X