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

[µo°Ý] ¥ÎVBA¸ü¤Jºô­¶¸ê®Æ

  1. Sub ¥¨¶°1()
  2.     With ActiveSheet.QueryTables.Add(Connection:= _
  3.         "URL;http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp", Destination:=Range( _
  4.         "$A$1"))
  5.         .WebFormatting = xlWebFormattingNone
  6.         .WebTables = "2"
  7.         .Refresh BackgroundQuery:=False
  8.         .Delete
  9.     End With
  10. End Sub
½Æ»s¥N½X
¦^´_ 1# pupai

TOP

¦^´_ 3# pupai

¤W­±ªº¥u¯à¬d³æ¤é

¤U­±ªº¤~¥i¥H¿ï¤é´Á
http://www.taifex.com.tw/chinese/3/7_12_3.asp

©Î¬O¤U­±ª½±µ¤U¸ücsv

http://www.taifex.com.tw/chinese/3/dl_7_12_8.asp

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD