ltwinery

´£¨Ñ¦Û¤v¼gªºµ{§Ç,¸Õ¹L ¬O¥i¥Îªº
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

¤£¥updfÀÉ®×¥i¥Î,µy§@­×§ï«á,ÁÙ¥i¥Î©ó¤U¸üªÑ²¼csvÀÉ