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

VBAÅX°ÊEdge¶}±ÒYAHOOºô¯¸,¦p¦ó¶ñ¤JÃöÁä¦r¤Î·j´M

VBAÅX°ÊEdge¶}±ÒYAHOOºô¯¸,¦p¦ó¶ñ¤JÃöÁä¦r¤Î·j´M

VBAÅX°ÊEdge¶}±ÒYAHOOºô¯¸­º­¶,·Q¶ñ¤JÃöÁä¦r(¶¼¤ô¾÷)¥B·j´M,¤£ª¾¸Ó¦p¦ó¼gµ{¦¡,´Á±æ°ª¤â«üÂI,·PÁÂ!   
Sub Edge_test()
    Dim WebUrl As String
   
     WebUrl = "https://tw.yahoo.com/"
     Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url " & WebUrl)
   
End Sub
yahoo.jpg
2022-8-29 20:07

¦^´_ 1# chihminyang88

§Ú¥Î chrome, À³¸Ó¬O¤@¼Ëªº.(EDGE¨S¸Ë¦n,µLªk¸Õ)

Sub test()
    Set Driver = CreateObject("Selenium.ChromeDriver")
    Driver.Get "https://tw.yahoo.com/"
    Driver.findelementbyxpath("//*[@id=""header-search-input""]").Click
    Driver.SendKeys ("¶¼¤ô¾÷")
    Driver.findelementbyxpath("//*[@id=""header-desktop-search-button""]").Click
    MsgBox ("done")
End Sub

TOP

¦^´_ 2# checkout88

¦¬¨ì, ÁÂÁ±z !

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD