VBA下載證交所每日數據

willy84222

請問我該如何修改程式碼?
想要下載的有1.三大法人買賣金額統計表   2.信用交易統計   3.信用額度總量管制餘額表
[url=]證交所三大法人買賣超日報.JPG ...[/url]

1. Option Explicit
   
2. 
   
3. Sub 證交所三大法人買賣超日報()
   
4. 
   
5.   Dim qdate As String, select2 As String
   
6. 
   
7.   qdate = "106/03/31"
   
8.   select2 = "ALLBUT0999"
   
9. 
   
10.   With ActiveSheet.QueryTables.Add(Connection:= _
    
11.     "URL;如圖所示", Destination:=Range( _
    
12.     "$A$1"))
    
13.     .Name = "證交所三大法人買賣超日報"
    
14.     .FieldNames = True
    
15.     .RowNumbers = False
    
16.     .FillAdjacentFormulas = False
    
17.     .PreserveFormatting = False
    
18.     .RefreshOnFileOpen = False
    
19.     .BackgroundQuery = False
    
20.     .RefreshStyle = xlOverwriteCells
    
21.     .AdjustColumnWidth = False
    
22.     .WebSelectionType = xlSpecifiedTables
    
23.     .WebFormatting = xlWebFormattingNone
    
24.     .WebTables = "2"
    
25.     .PostText = "qdate=" & qdate & "&select2=" & select2
    
26.     .WebPreFormattedTextToColumns = True
    
27.     .WebConsecutiveDelimitersAsOne = True
    
28.     .WebSingleBlockTextImport = False
    
29.     .WebDisableDateRecognition = True
    
30.     .WebDisableRedirections = False
    
31.     .Refresh BackgroundQuery:=False
    
32.   End With
    
33.   
    
34. End Sub

複製代碼

willy84222

自己回
後來直接用查詢的方式代替

oligo

willy84222 發表於 17-4-12 11:29
自己回
後來直接用查詢的方式代替

請問直接查詢的方式是指放棄用 VBA ，直接在官網下載 csv 檔嗎？
我也是有相同的問題，一直找不到方法用 VBA 匯入。

willy84222

oligo 發表於 17-10-7 11:28
請問直接查詢的方式是指放棄用 VBA ，直接在官網下載 csv 檔嗎？
我也是有相同的問題，一直找不到方法用  ...