- ©«¤l
- 759
- ¥DÃD
- 249
- ºëµØ
- 0
- ¿n¤À
- 1021
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-5
|
¦^´_ t8899
³£¥i¥H¦Û¤v¸ü¤Jexcel
¦Û¤w¿ý»s¤@¤U±Æ§ÇÀ³¸Ó«Ü²³æ
½m²ß¬Ý¬Ý
joey0415 µoªí©ó 2017-6-22 18:37
½Ð±Ð³s±µ®Éµ¥4¬í¦pªG¨S¦^À³´N¸õ¥X¡An¦p¦ó§ï??
Application.ScreenUpdating = False
Sheets("Sheet5").Select
Cells.ClearContents
ddd = "URL;http://www.twse.com.tw/exchangeReport/TWT48U?response=html"
With ActiveSheet.QueryTables.Add(Connection:=ddd, Destination:=Range("$A$1"))
.WebTables = "1"
.Refresh BackgroundQuery:=False
End With |
|