請問如何用 MSXML2.XMLHTTP 捉臺灣證券交易所個股月成交資訊

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2014-10-1 08:41 | 顯示全部帖子

回復 1# wufonna
試試看

Option Explicit
Sub Ex下載CSV()
Dim xml As Object
Dim stream
Dim URL As String '目的網址
Set xml = CreateObject("Microsoft.XMLHTTP") '用來取得網頁資料
Set stream = CreateObject("ADODB.stream") 'ADODB.stream '用來儲存二進位檔案
URL = "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201408/201408_F3_1_8_2485.php&type=csv"
xml.Open "get", URL, 0
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
With stream
.Open
.Type = 1
.write xml.ResponseBody
'SaveToFile:檔案名稱已存在時會有錯誤,須先刪除已存在的檔案名稱
If Dir("D:\2485.CSV") <> "" Then Kill "D:\2485.CSV"
.SaveToFile ("D:\2485.CSV")
.Close
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-10-1 20:07 | 顯示全部帖子

本帖最後由 GBKEE 於 2014-10-2 05:50 編輯

回復 3# wufonna
換一個方式

Option Explicit
Sub Ex_個股月成交資訊()
Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
With CreateObject("InternetExplorer.Application")
' .Visible = True
.Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201408/201408_F3_1_8_2485.php&type=list"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Ep .document.getElementsByTagName("table")(1).outerHTML
.Quit '關閉網頁
End With
End Sub
Sub Ep(S As String)
Dim D As New DataObject
'DataObject 物件在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。
'宣告 Dim D As New DataObject '須在工具-> 設定引用項目加入新增引用 Microsoft Forms 2.0 Object Library ,或於專案加入一表單即可
With D
.SetText S
.PutInClipboard
With ActiveSheet
.UsedRange.Clear
.Range("a1").Select
.PasteSpecial Format:="Unicode 文字"
End With
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-10-4 05:51 | 顯示全部帖子

回復 6# wufonna
Set CreateObject("InternetExplorer.Application")=Nothing
不是變數是一個實際的物件.
Nothing 關鍵字是用來將一個物件變數從一個實際的物件裏分離開來。使用 Set 陳述式可指定 Nothing 給物件變數。

修改看看

Option Explicit
Dim IE As Object '宣告為這模組的私用變數(這模組中的程序可呼叫的變數)
Sub Index()
Dim i As Integer, I2 As Integer
Dim x, y, XX, YY, ZZ
Dim k
Set IE = CreateObject("InternetExplorer.Application")
Const AA As Integer = 5
工作表3.Activate
'工作表3.Select
With 工作表1
''''''''未測試
For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
Call Ex_1(Split(Date, "/")(0) & Format((Split(Date, "/")(1)), "00"), I2)
Next
'''''''未測試
End With
End If
IE.Quit '在Sub Index() 程式結束前關閉網頁
End Sub
Sub Ex_1(SS As String, MM As Integer)
Dim i As Integer, S As Integer, k As Integer, A As Object, II, j
' 工作表3.Select
With IE
' .Visible = True
On Error Resume Next
.Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS & "/" & SS & "_F3_1_8_" & MM & ".php&type=list"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Ep .document.getElementsByTagName("table")(1).outerHTML
' .Quit '關閉網頁
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-10-4 14:45 | 顯示全部帖子

回復 9# wufonna

IE.Quit '在Sub Index() 程式結束前關閉網頁
沒有IE.Quit ,關閉Excel應用程式後IE還是開啟的,因IE.Visible = False (物件沒有顯示.)
Set IE = Nothing,釋放了變數所結合的物件,Excel應用程式中,可減少佔用的的記憶體

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.