- 帖子
- 96
- 主題
- 18
- 精華
- 0
- 積分
- 125
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-3-23
- 最後登錄
- 2022-8-2
|
[發問] 如何用VBA下載證交所每日的三大法人買賣記錄
本帖最後由 smart3135 於 2017-2-19 17:42 編輯
請教各位前輩，我想用VBA下載證交所每日的三大法人買賣記錄，但目前只有＂三大法人買賣超日報＂的程式碼
但我想要下載的是＂外資及陸資買賣超彙總表＂和＂投信買賣超彙總表＂這兩個報表，有看過原始碼
變數有些不同，不知道該怎麼寫，可以請前輩們指點一下嗎？謝謝
三大法人買賣超日報程式碼- Option Explicit
- Sub 證交所三大法人買賣超日報()
- Dim qdate As String, select2 As String
- qdate = "105/06/07"
- select2 = "ALLBUT0999"
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://www.twse.com.tw/ch/trading/fund/T86/T86.php", Destination:=Range( _
- "$A$1"))
- .Name = "證交所三大法人買賣超日報"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = False
- .RefreshOnFileOpen = False
- .BackgroundQuery = False
- .RefreshStyle = xlOverwriteCells
- .AdjustColumnWidth = False
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "2"
- .PostText = "qdate=" & qdate & "&select2=" & select2
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = True
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
-
- End Sub
http://www.twse.com.tw/ch/trading/fund/TWT38U/TWT38U.php 外資及陸資買賣超彙總表
http://www.twse.com.tw/ch/trading/fund/TWT44U/TWT44U.php 投信買賣超彙總表 |
|
發表於 2017-2-19 17:40
| 
