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

[µo°Ý] ¤W¥«­ÓªÑ¤é¦¨¥æ¸ê°T¤U¸ü§ïª©«Øij

¦^´_  t8899
joey0415 µoªí©ó 2017-6-22 18:29

¥i¥H«ö·Ó¤é´Á¥Ñ¤p¨ì¤j±Æ§Ç¶Ü?

TOP

¦^´_  t8899

³£¥i¥H¦Û¤v¸ü¤Jexcel

¦Û¤w¿ý»s¤@¤U±Æ§ÇÀ³¸Ó«Ü²³æ

½m²ß¬Ý¬Ý
joey0415 µoªí©ó 2017-6-22 18:37


½Ð±Ð³s±µ®Éµ¥4¬í¦pªG¨S¦^À³´N¸õ¥X¡A­n¦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

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD