[發問] 如何用VBA下載證交所每日的三大法人買賣記錄

smart3135

請教各位前輩，我想用VBA下載證交所每日的三大法人買賣記錄，但目前只有＂三大法人買賣超日報＂的程式碼
但我想要下載的是＂外資及陸資買賣超彙總表＂和＂投信買賣超彙總表＂這兩個報表，有看過原始碼
變數有些不同，不知道該怎麼寫，可以請前輩們指點一下嗎？謝謝

三大法人買賣超日報程式碼

1. Option Explicit
   
2. 
   
3. Sub 證交所三大法人買賣超日報()
   
4. 
   
5.   Dim qdate As String, select2 As String
   
6. 
   
7.   qdate = "105/06/07"
   
8.   select2 = "ALLBUT0999"
   
9. 
   
10.   With ActiveSheet.QueryTables.Add(Connection:= _
    
11.     "URL;http://www.twse.com.tw/ch/trading/fund/T86/T86.php", 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

複製代碼

http://www.twse.com.tw/ch/trading/fund/T86/T86.php　　三大法人買賣超日報
http://www.twse.com.tw/ch/trading/fund/TWT38U/TWT38U.php　　外資及陸資買賣超彙總表
http://www.twse.com.tw/ch/trading/fund/TWT44U/TWT44U.php　　投信買賣超彙總表

bioleon69

想知道,求大大解惑,有同樣疑問!!

三大法人頁面的程式碼好像有更動過

沒辦法一次全部列出來