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

¦p¦ó¼´¨âµ§¥H¤WªÑ²¼¸ê®Æ

¦p¦ó¼´¨âµ§¥H¤WªÑ²¼¸ê®Æ

¦U¦ì°ª¤â¦n
  ¤p©f vba¤p¹à¹à,³o¬qµ{¦¡¦³¤°³Â¤è¦¡¥i­×§ï Åý¥L¤£·|¥d¦í,¨DÀ°¦£!!!·PÁÂ
  1. Sub stock()
  2.     Dim oXMLHTTP As Object
  3.     Dim sPageHTML As String
  4.     Dim sURL As String '«e­±¤T¶µÅܼƥ²key
  5.     a = 0
  6.     Do
  7.         a = a + 1
  8.         Select Case a
  9.             Case 1
  10.                 sURL = "https://tw.stock.yahoo.com/q/q?s=" & Sheets(3).Cells(36, 6) '³sµ²ªÑ²¼¥N¸¹
  11.             Case 2
  12.                 sURL = "https://tw.stock.yahoo.com/q/q?s=" & Sheets(3).Cells(37, 6)
  13.             
  14.             
  15.             End Select
  16.             Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
  17.             oXMLHTTP.Open "GET", sURL, False
  18.             oXMLHTTP.send
  19.             sPageHTML = oXMLHTTP.responseText
  20.             
  21.             Select Case a
  22.                 Case 1
  23.                     Sheets(5).Cells(1, 1) = sPageHTML '±Nºô­¶¸ê°T¶K¨ì³o­Ó¦ì¸m
  24.                 Case 2
  25.                     Sheets(5).Cells(1, 2) = sPageHTML
  26.                
  27.                
  28.                     
  29.             End Select
  30.             If a = 2 Then
  31.                  Exit Do
  32.             End If
  33.                
  34.      Loop
  35.    
  36.     aaa = Sheets(5).Cells(1, 1) 'ºô§}¸ô®|aaa
  37.    
  38.     aaalen = Len(aaa)  'len¨úºô­¶¸ê°T
  39.    
  40.    
  41.     yy = 0
  42.     Y = 1
  43.         For t = 1 To aaalen    '¨ìºô­¶§ä¯S¼x¸ê®Æ¨ÓÂ^¨ú§Ú­Ì­nªº¸ê®Æ
  44.            
  45.         If Mid(aaa, t, Len("nowrap")) = "nowrap" Then '¯S¼xnowrap ­n¥h¤å¦rÀÉ·j´Mºô­¶¯S¼x
  46.             
  47.             
  48.         cc = 0
  49.             
  50.         t = t + Len("nowrap")
  51.         q1 = ""
  52.       

  53.         Do
  54.             If Mid(aaa, t, 1) = ">" Then 'aaaºô¸ô¸ô®|¸ê®Æ,²Ät­Ó­È¨ú²Ä¤@µ§¸ê®Æ

  55.                 q1 = ""
  56.                 cc = 1
  57.                 yy = yy + 1
  58.                 Y = Y + 1
  59.                 If yy = 2 Then 'yy¬°²Ä´Xµ§¸ê®Æ
  60.                     t = t + 4 '±q¯S¼x¸ê®Æ¨ì§A­nÂ^¨úªº¸ê®Æ­n¥[¦h¤Ö
  61.                 ElseIf yy = 5 Then
  62.                     t = t + 21
  63.                 Else
  64.                     t = t + 1
  65.                 End If


  66.           End If
  67.           If Mid(aaa, t, 1) = "<" Then
  68.             If yy = 5 Then
  69.                 Sheets(4).Cells(2, Y) = Left(RTrim(LTrim(q1)), Len(RTrim(LTrim(q1))) - 1) '±N¸ÓÄæ¸ê®Æ¸m¤¤
  70.                
  71.             Else
  72.                 Sheets(4).Cells(2, Y) = RTrim(LTrim(q1))
  73.          
  74.             End If
  75.             q1 = ""
  76.             cc = 0
  77.             Exit Do
  78.         End If
  79.         If cc = 1 Then
  80.            q1 = q1 & Mid(aaa, t, 1)
  81.         End If

  82.             t = t + 1
  83.         Loop
  84.      
  85.     End If
  86.      
  87.      
  88.      
  89.         bbb = Sheets(5).Cells(1, 2) 'ºô§}¸ô®|aaa

  90.         bbblen = Len(bbb) 'len¨úºô­¶¸ê°T

  91.         yy = 0
  92.         Y = 1
  93.          For i = 1 To bbblen '¨ìºô­¶§ä¯S¼x¸ê®Æ¨ÓÂ^¨ú§Ú­Ì­nªº¸ê®Æ
  94.         If Mid(bbb, i, Len("nowrap")) = "nowrap" Then '¯S¼xnowrap ­n¥h¤å¦rÀÉ·j´Mºô­¶¯S¼x
  95.         cc = 0
  96.         i = i + Len("nowrap")
  97.         q1 = ""

  98.         Do
  99.             If Mid(bbb, i, 1) = ">" Then 'aaaºô¸ô¸ô®|¸ê®Æ,²Ät­Ó­È¨ú²Ä¤@µ§¸ê®Æ

  100.                 q1 = ""
  101.                 cc = 1
  102.                 yy = yy + 1
  103.                 Y = Y + 1
  104.                 If yy = 2 Then 'yy¬°²Ä´Xµ§¸ê®Æ
  105.                     i = i + 4 '±q¯S¼x¸ê®Æ¨ì§A­nÂ^¨úªº¸ê®Æ­n¥[¦h¤Ö
  106.                 ElseIf yy = 5 Then
  107.                     i = i + 21
  108.                 Else
  109.                     i = i + 1
  110.                 End If


  111.             End If
  112.             If Mid(bbb, i, 1) = "<" Then
  113.             If yy = 5 Then
  114.                 Sheets(4).Cells(3, Y) = Left(RTrim(LTrim(q1)), Len(RTrim(LTrim(q1))) - 1) '±N¸ÓÄæ¸ê®Æ¸m¤¤

  115.             Else
  116.                 Sheets(4).Cells(3, Y) = RTrim(LTrim(q1))





  117.             End If
  118.             q1 = ""
  119.             cc = 0
  120.             Exit Do
  121.         End If
  122.         If cc = 1 Then
  123.             q1 = q1 & Mid(bbb, i, 1)
  124.         End If

  125.             i = i + 1


  126.         Loop
  127.      End If
  128.     Next i
  129.    Next t
  130.    
  131. End Sub
½Æ»s¥N½X
yvonne

¦^´_ 1# afu9240

½Ð°Ý ³o­Óµ{¦¡½X ¬O­n¼´ªÑ²¼ªº¤°»ò¸ê®Æ?
¬O³o¼Ë¶Ü?
    ªÑ²¼
    ¥N¸¹        ®É¶¡        ¦¨¥æ        ¶R¶i        ½æ¥X        º¦¶^        ±i¼Æ        ¬Q¦¬        ¶}½L        ³Ì°ª        ³Ì§C        ­ÓªÑ¸ê®Æ

TOP

¦^´_ 2# Scott090


    §Ú§âÀÉ®×±Hµ¹§A ¬Ý¤@¤U
yvonne

TOP

Àɮצpªþ¥ó,§Ú­n¼´ªºªÑ²¼¦b«esheets,±zÀ°§Ú¬Ý¤U,code·|¥d¦í,¨Ã¶·­n±j­¢Ãö³¬[ 20171115.zip (36.81 KB)
yvonne

TOP

¦^´_ 4# afu9240

½Ð¥ý°Ñ¦Ò³o­Ó½d¨Ò
    http://forum.twbts.com/viewthrea ... hlight=%AA%D1%B2%BC

TOP

·PÁÂs¤j,¯uªº¬O°ª¤â¦p¶³,·Q½Ð±Ð­n¬Ý¨âÀÉ¥H¤WªºªÑ²¼,¸Ì­±ªºcode¥u­n¦A¥[¤Wºô§}´N¦n¶Ü???
yvonne

TOP

¦^´_ 6# afu9240


    1. ½Ð¶K¥Xµ{¦¡½X§@«~·|¤ñ¸û®e©öÁA¸Ñ°ÝÃD
    2. ¤£­n§Ñ¤F ¦b "¦^´_" ªº¦a¤è«ö¤@¤U

TOP

§Ú«e­±¦³ªþ¤WÀÉ®×¹Lµ¹±z¬Ý,¤@¦¸¥u¯à¬Ý¤@ÀÉ­ÓªÑ
yvonne

TOP

¦^´_ 8# afu9240

³o¬O©p­nªº¶Ü?
   


ºô­¶¤¤ªÑ²¼¸ê®Æ20171118.zip (48.44 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD