- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-12-5
- 最後登錄
- 2019-6-6
|
3#
發表於 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檔 |
|
