ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¯à§_±N2­ÓVBA¥¨¶°¦X¨Ö¦¨1­ÓVBA¥¨¶°

¦^´_ 20# GBKEE

§Úªº¬Owin7 , IE 10 , office2010 »Ý­n§ï¦¨³o¼Ë
E.all.Length >= IIf(i = 0, 415, 135)

¥Î(azrael19¤j¤j)­×§ïªº³o¤@¥y¤]¤£¿ù
Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "º­²`¤Ï", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))  '§ï¥Î¬ÛÃö¦r¦ê½T»{¬O§_¦³¸ê®Æ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-7-27 08:15 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# azrael19

°õ¦æµ²ªG¥u¥X²{ "«¬ºA¤£²Å¦X" ¤§°T®§

«¬ºA¤£²Å¦X.jpg
2015-7-27 08:16


§Ú¬Ý±z¯uªº«Ü¥Î¤ßÀ°§Ú¸Ñ¨M°ÝÃD ¤£½×µ²ªG¦p¦ó §ÚÁÙ¬O«Ü·PÁ±zªº§V¤O ÁÂÁ±z

TOP

¦^´_ 20# GBKEE
§Úªº¬Owin7 , IE 11 , office2013
¸òno3-taco ¤@¼Ë»Ý­n§ï¦¨ E.all.Length >= IIf(i = 0, 415, 135)

¦^´_ 21# no3-taco
«á¨Ó§Ú§ï¦¨ Loop Until InStr(1, E.outerHTML, IIf(i = 0, "00638R", "¹q¤lÃþ¥[ÅvªÑ»ù«ü¼Æ"))¤ñ¸û¨S°ÝÃD

¦^´_ 19# jackyq
¦hÁÂjackyq¤j´£ÂI¡A§Ú¾Ç²ßµ{¦¡ªº¸gÅç¤j³¡¤À³£¬Oºô¸ô¤WGoogle§ì¨Ó¶K¤W­×§ï¡A¯u¥¿¦Û¤v¼gªº¤£¦h¡A½T¹ê±q¨S»{¯u¦Ò¼{¨ì¸Ó¦p¦ó¼g¤~¯àÅý«áÄòªººûÅ@¤u§@§ó»´ÃP¡AÃö©ó³o¤è­±ªº¸gÅç«e½ú¬O§_¥i¥H±ÀÂˬÛÃöªº®ÑÄy©Îºô¯¸¡AÁÙ¬O¦pªG§Ú­n¥ÎGoogle·j´M³o¤è­±ªº¸ê®Æ¸Ó¥Î¤°»ò¼ËªºÃöÁä¦r¡AÁÂÁÂ!

Ãö©ólcctno¤j­ô©Ò´£ªº°ÝÃD¤@¶}©l¦]¬°±qºô­¶ªº­ì©l½X¬Ý¤£¨ì¸ê®Æ¡A§Ú¤~·Q¥h±NJSON¸ê®Æ¤º®e­«²Õ¨Ó¶K¡A®Ú¾Újackyq¤j±zªº«Øij§Ú·QÁÙ¬OÀ³¸Ó¥H GBKEE ª©¥D¤@¶}©l©Ò±Ð¥ÎIE¨Ó§ì¨úªº¤è¦¡³Ì®e©öºûÅ@¡A«á¨Ó§Ú¦³§ä¨ì°ÊºA²£¥Íªººô­¶­ì©l½X¤~µo²{§Ú°µ¤F¦n¦h¥Õ¤u¡A¥u­n¦b¶K¤W¤u§@ªí«e±Nºô­¶¬ÛÃö¦r¦ê¤º®e­×§ï­«²Õ´N¥i¥HÅý­t¸¹¥¿±`Åã¥Ü¥X¨Ó¡A¤U­±ªºµ{¦¡¬O¥Î GBKEE ª©¥D­ì©l½X¨Ó°µ­×§ï¡A¦pªG¦³§ó²³æªº¤è¦¡Á٧Ʊæ±z­Ì¯à¦h«ü¾É¤@¤U¡AÁÂÁÂ!
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object, AR(), i As Integer, o As Object, k 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.             Loop Until InStr(1, E.outerHTML, IIf(i = 0, "00638R", "¹q¤lÃþ¥[ÅvªÑ»ù«ü¼Æ"))  '§ï¥Î¬ÛÃö¦r¦ê½T»{¬O§_¦³¸ê®Æ
  25.             
  26.             '§R°£¡¶ ¡¿ ²Å¸¹¨Ã¥[¤W¼Æ¦r­t¸¹Åã¥Ü
  27.             If 0 = i Then
  28.                 For Each o In E.getElementsByClassName("ng-binding upcolor")
  29.                     If InStr(1, o.innerText, "¡¶ ¡¿") Then
  30.                         o.innerHTML = Mid(o.innerText, 5)
  31.                     End If
  32.                 Next
  33.                 For Each o In E.getElementsByClassName("ng-binding downcolor")
  34.                     If InStr(1, o.innerText, "¡¶ ¡¿") Then
  35.                         o.innerHTML = "-" & Mid(o.innerText, 5)
  36.                     Else
  37.                         o.innerHTML = "-" & o.innerText
  38.                     End If
  39.                 Next
  40.             Else
  41.                 For Each o In E.getElementsByClassName("ChangesText2 downcolor")
  42.                     k = InStr(1, o.innerText, "(")
  43.                     If 0 < k Then
  44.                         o.innerHTML = "-" & Mid(o.innerText, 1, k - 1) & "(-" & Mid(o.innerText, k + 1)
  45.                     End If
  46.                 Next
  47.             End If
  48.             .Document.body.innerHTML = Replace(E.outerHTML, "<span class=""ng-hide"" ng-show=""o.price == 0"">0</span>", "") ' ¥h°£ [§é·¸»ù] ¼Æ¦r«á­±¦h¾lªº0
  49.             '.Document.body.innerHTML = E.outerHTML
  50.             'Stop
  51.             .ExecWB 17, 2       '  Select All
  52.             .ExecWB 12, 2       '  Copy selection
  53.             With ActiveSheet
  54.                 .Range("A" & IIf(i = 0, 1, 27)).Select
  55.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  56.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
  57.                     .ColorIndex = 35
  58.                     .Pattern = xlSolid
  59.                 End With
  60.             End With
  61.             .Quit        'Ãö³¬ºô­¶
  62.         End With
  63.     Next
  64. End Sub
½Æ»s¥N½X

TOP

¦^´_ 24# azrael19

¤j¤jªGµMÁo©ú
¤@ÂI´NÀ´
±qhtml¤U¤â´N¥i¥H¤F

TOP

¦^´_ 24# azrael19
ªGµM¬O°ª¤â ¤w¸gOK¤F ÁÂÁ±z¤F
OK.jpg
2015-7-27 08:57

TOP

¦^´_ 10# GBKEE

¦X3 ¤º¤§«ö¶s ¬O±zªºVBA»yªk ¦ý¦³¿ù»~ ²{±N¸ÓÀɮפW¶Ç ·PÁ±zªº¥Î¤ß
¥t¥~§iª¾©ó±z §Ú¬O¨Ï¥ÎWIN7 61¦ì¤¸  Office2003  IE11

§Y®É¦ô­p²b­È.zip (28.2 KB)

TOP

¦^´_ 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¤£¤ä´©.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 22# GBKEE

¨ä¹ê§Ú¤]¤£¬O«Ü²M·¡¡A¯à¦b«üÂI°ÝÃDªºÄpµ²ÂI¦b­þ¶Ü

§Ú§ì¨ìªº¼Æ¶q´N³o»ò¦hLoop Until E.all.Length >= IIf(i = 0, 415, 135)¡A³£¤ñª©¤jªº¤Ö©Ò¥H·|¥d¦í¡C(§PÂ_¦¡§Ú¼g¤£¥X§¹¾ãªº)

¤U­±³o¨â¥y§Ú°õ¦æ³£¥i¥H¡A¦³¸ê®Æ³£·|§ìªº¨ì(¨S¦³¸ê®Æ§Ú´N¤£ª¾¹D¤F)¡A¤£ª¾¹Dª©¤j«üªº¬O¤°»ò(§Úªº§PÂ_¯à¤O¦³­­¡A¨S¦³«Ü²`¤J¤F¸Ñ)
Loop Until InStr(1, E.outerHTML, IIf(i = 0, "º­²`¤Ï", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))
Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "º­²`¤Ï", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD