willy84222 發表於 17-4-3 14:30

VBA下載證交所每日數據

本帖最後由 willy84222 於 17-4-3 14:39 編輯

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

Sub 證交所三大法人買賣超日報()

Dim qdate As String, select2 As String

qdate = "106/03/31"
select2 = "ALLBUT0999"

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;如圖所示", 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

willy84222 發表於 17-4-12 11:29

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

oligo 發表於 17-10-7 11:28

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

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

willy84222 發表於 17-10-10 17:44

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


頁: [1]
查看完整版本: VBA下載證交所每日數據