返回列表 上一主題 發帖

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

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

擷取.PNG
2018-2-10 01:36


請問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
---------------------------------------------------------------------------------------------
*宅女一枚無誤*

回復 1# msmplay
  1. Dim myURL As String, xFile As String
  2.     myURL = "http://w3.hdut.edu.tw/ezcatfiles/a001/img/img/507/EDOC_20171120.pptx"
  3.     xFile = Mid(myURL, InStrRev(myURL, "/") + 1)
  4.      oStream.SaveToFile ActiveWorkbook.Path & "\" & xFile
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Mid(myURL, InStrRev(myURL, "/") + 1, 99)
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 2# GBKEE


   G大再次感謝你熱心幫忙ㄟ
*宅女一枚無誤*

TOP

回復 3# ML089


   M大非常感謝ㄛ
*宅女一枚無誤*

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題