返回列表下一主題上一主題發帖

[發問] oStream.SaveToFile ()檔名問題

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-2-10 01:36 | 顯示全部帖子

[發問] oStream.SaveToFile ()檔名問題

請問oStream.SaveToFile ()括弧裡面要打什麼，才能讓存檔的檔名等於下載檔案的原檔名一模一樣
例如:下載的檔案名稱「123.xls」，存檔的檔名就同下載檔名「123.xls」
下載的檔案名稱「ABC.pptx」，存檔的檔名就同下載檔名「ABC.pptx」

以下為程式碼
---------------------------------------------------------------------------------------------
Sub 下載檔案()
Dim myURL As String
myURL = "http://w3.hdut.edu.tw/ezcatfiles/a001/img/img/507/EDOC_20171120.pptx"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
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 (ActiveWorkbook.Path & "\" & ?)
oStream.Close
End If
End Sub
---------------------------------------------------------------------------------------------