從網路硬碟下載excel檔至桌面卻無法正常開啟檔案

本帖最後由 justintoolbox 於 2015-6-26 11:22 編輯

各位前輩們大家好，小弟想從自己的網路硬碟下載EXCEL檔至桌面。
目前遇到的問題是：下載的檔案是錯誤的無法開啟，如下圖

不知道該哪裡出了問題，再請各位前輩指導，感謝！

Option Explicit
Sub DownloadXLFileFromURL()
Dim myURL As String, sFilename As String
myURL = "https://drive.google.com/open?id=0B3PmLEYBktf4MENuMXZOcW9BN2M"
sFilename = Environ("SystemDrive") & Environ("HomePath") & _
Application.PathSeparator & "Desktop" & Application.PathSeparator & _
"file.xlsx"
Dim WinHttpReq As Object, oStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False ', "username", "password"
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 sFilename, 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
End Sub

複製代碼

樓主熱帖

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

2^#

發表於 2015-6-27 10:32 | 顯示全部帖子

各位前輩們大家好，小弟想從自己的網路硬碟下載EXCEL檔至桌面。
目前遇到的問題是：下載的檔案是錯誤的無法 ...
justintoolbox 發表於 2015-6-26 11:21

各位前輩們或高手們！能否指點迷津一下！拜託了！感恩！

TOP

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

3^#

發表於 2015-6-27 14:15 | 顯示全部帖子

沒有帳號密碼沒法子測試啊
jackyq 發表於 2015-6-27 12:20

Jackyq你好，恕無法提供帳號密碼。但是我有在VBA內填上帳號與密碼一樣是無法使用。
另一點不知什麼原因：若電腦內有安裝googledrive 則可以下載檔案，但無法打開excel檔
若電腦內無安裝googledrive則程式執行到WinHttpReq.Send 就會有錯誤！（這部分我都有把帳號與密碼都填入了！）

想說請問各位高手，如果撇開小弟提供的代碼，
如果我想要下載：https://drive.google.com/uc?export=download&id=0B3PmLEYBktf4MENuMXZOcW9BN2M
該怎麼撰寫？再次懇請各位高手指點！拜託了！！！！！

TOP

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

4^#

發表於 2015-6-28 04:41 | 顯示全部帖子

回復 4# justintoolbox

想說請問各位高手，如果撇開小弟提供的代碼，
如果從網路硬碟下載連結為以下：（不需要帳號與密碼）
https://drive.google.com/uc?export=download&id=0B3PmLEYBktf4MENuMXZOcW9BN2M
該怎麼撰寫VBA？