Board logo

標題: [發問] 好用的個股查詢，VBA該如何寫??? [打印本頁]
作者: r2henry    時間: 2012-11-29 15:58     標題: 好用的個股查詢，VBA該如何寫???

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

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

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

[attach]13329[/attach]
作者: papamomo    時間: 2012-12-1 13:13

那是PDF 檔案 應該不能寫吧
可以找一些證卷網站 寫成類似格式 是有可能的
作者: ltwinery    時間: 2012-12-12 22:01

提供自己寫的程序,試過 是可用的
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    時間: 2013-4-2 17:40

請問要如何將pdf 轉為csv
謝謝∼
作者: barrykuo    時間: 2013-4-15 20:16

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



    還滿有意思，真的可以用的，真謝謝，很好的方法！
作者: bhsm    時間: 2013-4-16 12:59

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


感謝ltwinery大開放VBA馬讓我們這些未達權限者也可看到.
想請教若想將股票代號改成動態的話.要如何改?.謝謝..
作者: Baracuda    時間: 2013-4-17 15:46

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)