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

QueryTables­«½Æ¬d¸ß¡A¦p¦óÂл\¤W¤@µ§¬d¸ß

  1. Sub ex()
  2.         Range("A:L").Clear

  3.         With ActiveSheet.QueryTables.Add(Connection:="URL;https://tw.finance.yahoo.com/q/q?s=" & 1101, Destination:=Range("A1"))
  4.             .WebSelectionType = xlSpecifiedTables
  5.             .WebFormatting = xlWebFormattingNone
  6.             .WebTables = "6"
  7.             .Refresh BackgroundQuery:=False
  8.             .Delete
  9.          End With
  10. End Sub
½Æ»s¥N½X
¦^´_ 1# tsunamix03

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD