這是路製巨集下來的 Sub Macro1() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://fund.cnyes.com/fund_nav.asp?fundcode=B13%2C009&sdate=19960101&edate=20080101&Submit=%ACd%B8%DF" _ , Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone .WebTables = "20" .Refresh BackgroundQuery:=False End With End Sub