singo1232001

¦^´_ 1# t8899


<div class="Jc(fe) Mend(4px) Fw(600) D(f) Ai(c) C($c-trend-up)"   ' ³o¬O¬õ¦â¦V¤W
<div class="Jc(fe) Mend(4px) Fw(600) D(f) Ai(c) C($c-trend-down)"  '³o¬Oºñ¦â ¦V¤U


©Ò¥H   
if  ºô­¶¤¸¯Àª«¥ó.Attribute("class") Like "*C($c-trend-up)*" Then
debug.print "¡¶"  '¥¿¼Æ
else
debug.print "¡¿"  '­t¼Æ
end if


§A¤]¥i¥H¸ÕµÛ¤@­Ó¤@­Ó
debug.print  ºô­¶¤¸¯Àª«¥ó.Attribute("class")  
Æ[¹î¬O¤£¬O§A­nªº

singo1232001

¦^´_ 1# t8899


Sub ttt()
Set driver = CreateObject("Selenium.ChromeDriver")
driver.get "https://tw.stock.yahoo.com/quote/2330"
driver.Wait 1000
Set ID_0 = driver.findelementbyID("qsp-overview-realtime-info")
Set ID_0_ul_S = ID_0.findelementsbytag("ul")
Set ID_0_ul_S_1_li_S = ID_0_ul_S(1).findelementsbytag("li")

For i = 1 To ID_0_ul_S_1_li_S.Count
Set x = ID_0_ul_S_1_li_S(i).findelementsbytag("span")
  If x(1).Text Like "*º¦¶^*" Then

      Select Case True
      Case x(2).Attribute("class") Like "*C($c-trend-up)*": tx = "¡¶ " & x(2).Text
      Case x(2).Attribute("class") Like "*C($c-trend-down)*": tx = "¡¿ " & x(2).Text
      Case Else: tx = x(2).Text
      End Select
  
      Debug.Print x(1).Text & " " & tx
  Else
      Debug.Print x(1).Text & " " & x(2).Text
  End If
Next
Stop
End Sub

singo1232001

¦^´_ 1# t8899


¦pªG§A¥Îxpath ´N¬O³o¼Ë
Sub tttt()
Set driver = CreateObject("Selenium.ChromeDriver")
driver.get "https://tw.stock.yahoo.com/quote/2330"
driver.Wait 1000

Set xp = driver.findelementbyxpath("//*[@id=""qsp-overview-realtime-info""]/div[2]/div[2]/div/ul/li[8]")
      Set sn = xp.findelementsbytag("span")

Select Case True
Case sn(2).Attribute("class") Like "*C($c-trend-up)*": tx = "¡¶ "
Case sn(2).Attribute("class") Like "*C($c-trend-down)*": tx = "¡¿ "
Case Else: tx = " - "
End Select
Debug.Print sn(1).Text & " " & tx & " " & sn(2).Text
  
Stop
End Sub

singo1232001

¦^´_ 6# t8899


Sub ®É¶¡¤º¨S¥[¸ü§¹´Nºâ¥¢±Ñ()
t = Timer '´ú¸Õ¥Î¥i§R
Set driver = CreateObject("selenium.chromedriver")
driver.Timeouts.pageload = 10000 '­n¬O¬í¼Æ¹L§C ¨S¥[¸ü§¹ ´N·|±j¨îÃö³¬ ¥i¥H¸ÕµÛ´ú¸Õ3¬í¥H¤U
On Error Resume Next
driver.get "https://finance.yahoo.com/quote/TSM/"
If Err.Number <> 0 Then
Err.Clear
driver.Quit
End If
On Error GoTo 0
Debug.Print Timer - t  '´ú¸Õ¥Î¥i§R
End Sub




¦]¬°¤£¾å±o§Aªº»Ý¨D
©Ò¥H§Ú¶¶«K§â­«³s¤T¦¸ªº¼gªk¤]µ¹§A

Sub ­«³s¤T¦¸¨C¦¸µ¥¤T¬í_²Ä¥|¦¸´N¥¢±Ñ()
Set driver = CreateObject("selenium.chromedriver")
On Error Resume Next
Do
driver.Get "https://finance.yahoo.com111111111/quote/TSM/"
If Err.Number <> 0 Then
    Err.Clear
    Application.Wait Now + TimeValue("00:00:03")
    rT = rT + 1
    If rT = 3 Then driver.Quit: Exit Do
Else
    Exit Do
End If
Loop
On Error GoTo 0
End Sub

singo1232001

¦^´_ 9# Scott090


    Sub test()
Set driver = CreateObject("selenium.chromedriver")
driver.get "https://finance.yahoo.com/quote/TSM/"

Do: Set ids = driver.findelementsbyId("quote-summary")
    If ids.Count > 0 Then Exit Do
    Loop
Do: Set tby = ids(1).findelementsbytag("tbody")
    If tby.Count > 0 Then Exit Do
    Loop
   
Debug.Print tby(1).Text


Set trs = tby(1).findelementsbytag("tr")
ReDim ar(1 To trs.Count, 1)
For i = 1 To trs.Count
    Set tds = trs(i).findelementsbytag("td")
    ar(i, 0) = tds(1).Text
    ar(i, 1) = tds(2).Text
Next

Cells.ClearContents
Range("a1").Resize(UBound(ar), 2) = ar
End Sub

singo1232001

¦^´_ 11# Scott090


§â§ä¤¸¯À·Q¹³¦¨,¸òÀÉ®×Á`ºÞ§ä¸ê®Æ§¨¤@¼Ë
±`¥Îªº¦³¤÷¤lÃö«Y ¥S§ÌÃö«Y ©ÎªÌID°ß¤@©Ê
¦Ó¤÷¤¸¯À ¦³ªº¥ÎID ¦³ªº¥Îtag  ¦³ªº¬O¶¶¦ì ¦³ªº¥Î°Æ¥[ÄÝ©Êattribute
³o4ºØ¤è¦¡¥i¥H¨ó§U§A§ä¨ì»Ý­nªº¤÷¤¸¯À ©Î ¤l¤¸¯À
·í¤U¬Ý¬Ý¨º¨Ç¤è¦¡¾A¦X¨Ï¥Î
³q±`¥Î©óºô­¶¦³²§¨Bªº±¡ªp ¤~·|»Ý­n¶¶µÛÃö«Y©Î°fµÛÃö«Y§ä
­Yºô­¶¨S²§¨B ´N¤£¥ÎÃö«Y§ä ª½±µ¥ÎbyXpath§¹¾ã¸ô®|§ä¨ì´N¥i¥H
´N¦p¦P ª½±µ½Æ»s¸ê®Æ§¨¸ô®|¨º¼Ë ´N¯à«e©¹¸ê®Æ§¨¦ì¸m
³q±`¯à¸Ñ¨M80~90%´M§ä°ÝÃD

¸É¥R:
ÁÙ¥i¯à¹J¨ìifram¦³®Ø¬[ºô¯¸
ÁÙ¥i¯à¹J¨ì»Ý­n¥Îexecuteª`¤Jcss ¸Ñ¨M³Ñ¤U10~20%¨ä¥L¦³¹ï¤¸¯À°Ê¤â¸},ºô¯¸©Ê¯S®í«OÅ@ªº°ÝÃD