標題:
[發問]
如何用VBA下載證交所每日的三大法人買賣記錄
[打印本頁]
作者:
smart3135
時間:
2017-2-19 17:40
標題:
如何用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/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
時間:
2017-2-28 12:41
想知道,求大大解惑,有同樣疑問!!
三大法人頁面的程式碼好像有更動過
沒辦法一次全部列出來
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
