返回列表 上一主題 發帖

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

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

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

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

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

finance_all.rar (155 Bytes)
Henry

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

TOP

提供自己寫的程序,試過 是可用的
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檔

TOP

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

TOP

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



    還滿有意思,真的可以用的,真謝謝,很好的方法!
人生只有三天,只有活在今天最踏實

TOP

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


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

TOP

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

TOP

        靜思自在 : 不怕事多,只怕多事。
返回列表 上一主題