[發問] 好用的個股查詢，VBA該如何寫???

r2henry

請問如果想查詢如下的網址資料，用Excel匯入外部資料也不行，請問有高手能指點一下，VBA該如何寫???

網址如下：http://www.twse.com.tw/pdf/ch/2330_ch.pdf

我嘗試用 iqy 查詢，但出現都是亂碼，檔案如下：

finance_all.rar (155 Bytes)

下載次數: 11

2012-11-29 15:57

papamomo

那是PDF 檔案 應該不能寫吧
可以找一些證卷網站 寫成類似格式 是有可能的

ltwinery

提供自己寫的程序,試過 是可用的
Public Sub download_pdf()
    Dim myURL As String
    Dim WinHttpReq As Object
   
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    myURL = "http://www.twse.com.tw/pdf/ch/2330_ch.pdf"
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.Send

        myURL = WinHttpReq.ResponseBody
        If WinHttpReq.Status = 200 Then
            Set oStream = CreateObject("ADODB.Stream")
            oStream.Open
            oStream.Type = 1
            oStream.Write WinHttpReq.ResponseBody
            oStream.SaveToFile ("E:\2330_ch.pdf")
            oStream.Close
        End If
   End Sub

不只pdf檔案可用,稍作修改後,還可用於下載股票csv檔

cji3cj6xu6

請問要如何將pdf 轉為csv
謝謝～

barrykuo

提供自己寫的程序,試過 是可用的
Public Sub download_pdf()
    Dim myURL As String
    Dim WinHttpR ...
ltwinery 發表於 2012-12-12 22:01

    還滿有意思，真的可以用的，真謝謝，很好的方法！

bhsm

提供自己寫的程序,試過 是可用的
Public Sub download_pdf()
    Dim myURL As String
    Dim WinHttpR ...
ltwinery 發表於 2012-12-12 22:01

感謝ltwinery大開放VBA馬讓我們這些未達權限者也可看到.
想請教若想將股票代號改成動態的話.要如何改?.謝謝..

Baracuda

如果只要下載股價，應該可以到網站上直接下載。
例如台積電的部分
http://finance.yahoo.com/q?s=2330.TW