- ©«¤l
- 764
- ¥DÃD
- 254
- ºëµØ
- 0
- ¿n¤À
- 1031
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2025-4-6
|
¥»©«³Ì«á¥Ñ t8899 ©ó 2022-10-18 20:36 ½s¿è
¦^´_ 28# singo1232001
Sub test()
Set DRIVER = CreateObject("Selenium.ChromeDriver")
DRIVER.Get "https://tw.stock.yahoo.com/quote/1101.TW"
Set td = DRIVER.FindElementByXPath("//*[@id=""qsp-overview-realtime-info""]/div[2]/div[2]/div/ul")
Cells.ClearContents
' td.AsTable.ToExcel Cells(1, 1)
End Sub
¹Ï¤¤®Ø°_¨Óªº¦Ç¦â®Ø®Ø¤£¬O¤@Ótable ??
n¦p¦ó¥Htable¤è¦¡¶×¤Jexcel ?
|
|