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

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

¦^´_ 40# lcctno

¦X1 ¦X2  §¡¯à¥¿±`°Ê§@
¤£«H±z¥i±N«ö¶s5«ü©w¥y¶°¬°¦X1©Î¦X2

¬O¥i¥H¦ýµLªk¦bVBAµøµ¡¤¤«öF5°õ¦æ.
SUB ¦X3(¦X3) ,¬A©·¤º´N¬O­n±µ¦¬ªº°Ñ¼Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 41# GBKEE
§Ú¤§«e¬O¥Î¦P¼Ëªº»yªk  Sub ¦X3() ¤]µLªk¾Þ§@ ¥X²{400(¦p¹Ï)  ¦ý±z»¡­n§ï¦¨ Sub ¦X3(¦X3) ??? ©_©Ç »yªk¤@¼Ë¬O¨Ï¥ÎSub ¦X2() ¥i°õ¦æ ¦ýSub ¦X3() ´N¥X²{400???

TOP

¦^´_ 35# no3-taco

§Ú¥»¨Ó¥H¬°·|¦³¶¶§Çªº§ì¨ú¡A¸Õ¤F´X¦¸¦n¹³³£±q40¸õ¨ì415

    javascript:;

234.jpg (271 KB)

234.jpg

TOP

¦^´_ 42# lcctno
Sub ¦X3() ªº¦WºÙ§ï¦¨ Sub test() ,¦A¸Õ¸Õ¬Ý
¦^´_ 43# no3-taco
§Ú¬O·Q½Ð§A±N²Ä10¶Kªº­ì¥»µ{¦¡½X,¦bIE10ªº¤U°õ¦æ¬Ý¬ÝLength³Ì²×¬O¦h¤Ö
  1. Loop Until E.all.Length >= IIf(i = 0, 431, 150)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 44# GBKEE

win7(64bit) ,ie10

415©M135

javascript:;

123.jpg (293.66 KB)

123.jpg

456.jpg (298.11 KB)

456.jpg

TOP

¦^´_ 24# azrael19

§Ú¹ê¦b¬O¯uªº¤£¤Ó¦n·N«ä¦A³Â·Ð±z±N¤U¹Ï¤§¾ã±Æ¨Ò¦p1.27(0.10%) ¤§©Ò¥H0.10%) ®³±¼ ¥Ñ©ó§Ú¯uªº¤£À´ ¬G ÁÙ¬O«pµÛÁy¥Ö ³Â·Ð±z¦³ªÅ®ÉÀ°­Ó¤j¦£ ÁÂÁ±zªº¨¯³Ò

TOP

¦^´_ 44# GBKEE
Sub ¦X3() ªº¦WºÙ§ï¦¨ Sub test() ³o­Ó§Ú¸Õ¹L
·|Åܦ¨§ä¤£¨ì¥¨¶° ¦p¹Ï

TOP

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

¦^´_ 47# lcctno


   
§A¦³»¡: ¤£«H±z¥i±N«ö¶s5«ü©w¥¨¶°¬°¦X1©Î¦X2
«ö¶s5­n­«·s«ü©w¥¨¶°


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

TOP

¥»©«³Ì«á¥Ñ no3-taco ©ó 2015-7-27 13:32 ½s¿è

¦^´_ 47# lcctno


1.§A«ö¶s­n®×¥kÁä¡A­«·s«ü©w¥¨¶°¡A
2.¤£µM´N¬OÂI£¸¤U¨º­Óµ{¦¡½X¸Ì­±¥ô·N¦ì¸m¦A®×f5

TOP

¦^´_ 46# lcctno

¬O³o¼Ë¶Ü
  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.                 '±N«ü¼Æº¦¶^¤Îº¦¶^´T%¦r¦ê¤À¶}¨Ã¥[¤W­t¸¹Åã¥Ü
  42.                 For Each o In E.getElementsByClassName("ChangesText2 upcolor")
  43.                     k = InStr(1, o.innerText, "(")
  44.                     If 0 < k Then
  45.                         o.outerHTML = "<td>" & Mid(o.innerText, 1, k - 1) & "</td><td>" & Replace(Mid(o.innerText, k + 1), ")", "</td>")
  46.                     End If
  47.                 Next
  48.                 For Each o In E.getElementsByClassName("ChangesText2 downcolor")
  49.                     k = InStr(1, o.innerText, "(")
  50.                     If 0 < k Then
  51.                         o.outerHTML = "<td>-" & Mid(o.innerText, 1, k - 1) & "</td><td>-" & Replace(Mid(o.innerText, k + 1), ")", "</td>")
  52.                     End If
  53.                 Next
  54.             End If
  55.             .Document.body.innerHTML = Replace(E.outerHTML, "<span class=""ng-hide"" ng-show=""o.price == 0"">0</span>", "") ' ¥h°£ [§é·¸»ù] ¼Æ¦r«á­±¦h¾lªº0
  56.             '.Document.body.innerHTML = E.outerHTML
  57.             'Stop
  58.             .ExecWB 17, 2       '  Select All
  59.             .ExecWB 12, 2       '  Copy selection
  60.             With ActiveSheet
  61.                 .Range("A" & IIf(i = 0, 1, 27)).Select
  62.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  63.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
  64.                     .ColorIndex = 35
  65.                     .Pattern = xlSolid
  66.                 End With
  67.             End With
  68.             .Quit        'Ãö³¬ºô­¶
  69.         End With
  70.     Next
  71. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD