[發問] 上市股票融資融券餘額CSV下載問題

您好
我想用VBA下載網站的每天"融資融券彙總(大盤統計資訊)"
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php?select2=&chk_date=103/08/11

請問他的URL是什麼
或者有什麼可以讓我參考的資料
請指導
謝謝!!

樓主熱帖

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-4-23

論壇贊助勳章

2^#

發表於 2014-8-12 17:20 | 顯示全部帖子

回復 2# GBKEE

版主您好
我寫的東西有點行不通
請幫我看看修改
謝謝

Sub 上櫃()
Theurl = "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php"
With Workbooks.Open(Theurl)
AR = .Sheets(1).UsedRange
.Close False
End With
With ActiveSheet
Range("B:U").Select
Selection.ClearContents
'.UsedRange.Clear 全部清除
.Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
End With
End Sub

複製代碼

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-4-23

論壇贊助勳章

3^#

發表於 2014-8-13 09:42 | 顯示全部帖子

回復 4# GBKEE

感恩版主的回覆

如果我要可以指定日期的查詢功能
請問我要如何呈現
謝謝!!

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-4-23

論壇贊助勳章

4^#

發表於 2014-8-13 12:20 | 顯示全部帖子

回復 6# GBKEE

版主
我只能寫這樣，但程式有錯
請幫我指導一下
謝謝!!

Sub EX()
Dim A As Date
Dim Sdate As Variant
A = Range("A1").Value
Sdate = Format(A, "E/MM/DD")
With ActiveSheet
If .QueryTables.Count = 0 Then
With .QueryTables.Add("URL;about:Tabs", .[B1])
.Refresh BackgroundQuery:=False
End With
End If
With .QueryTables(1)
'全部下載久一點
.Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report=" & Sdate / A112 = " & Sdate_1.php"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10"
'這全部的要用 .WebTables = "10"
'其他項目的要用 .WebTables = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
End Sub