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

justintoolbox

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

下載 (16.51 KB)

2015-6-26 11:19

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

1. Option Explicit
   
2. 
   
3. Sub DownloadXLFileFromURL()
   
4. 
   
5.      Dim myURL As String, sFilename As String
   
6.      myURL = "https://drive.google.com/open?id=0B3PmLEYBktf4MENuMXZOcW9BN2M"
   
7.      sFilename = Environ("SystemDrive") & Environ("HomePath") & _
   
8.              Application.PathSeparator & "Desktop" & Application.PathSeparator & _
   
9.              "file.xlsx"
   
10.    
    
11.      Dim WinHttpReq As Object, oStream As Object
    
12.      Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    
13.      WinHttpReq.Open "GET", myURL, False ', "username", "password"
    
14.     WinHttpReq.Send
    
15.    
    
16.      myURL = WinHttpReq.ResponseBody
    
17.      If WinHttpReq.Status = 200 Then
    
18.          Set oStream = CreateObject("ADODB.Stream")
    
19.          oStream.Open
    
20.          oStream.Type = 1
    
21.          oStream.Write WinHttpReq.ResponseBody
    
22.          oStream.SaveToFile sFilename, 2  ' 1 = no overwrite, 2 = overwrite
    
23.         oStream.Close
    
24.      End If
    
25. 
    
26. End Sub

複製代碼

justintoolbox

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

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

jackyq

沒有帳號密碼沒法子測試啊

justintoolbox

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

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

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

jackyq

回復 4# justintoolbox

你說若電腦內有安裝googledrive 則可以下載檔案，但無法打開excel檔
那請你把你說的那個無法打開的excel檔
上傳給大家試試看能不能打開
如果我們也不能打開
是否可表示你用 VBA 下載的excel檔是個損毀的檔案
這樣至少可以先濾掉一些可能性

justintoolbox

回復 4# justintoolbox

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

拜託了

lpk187

回復 6# justintoolbox

下載後的檔案並不是.xlsx檔，而是.html檔，但你存的副檔名為.xlsx所以Excel誤以為是損壞的檔案，其實是.html檔
  其實我也不會，我只是照著你原程式及方法去做，而發現的

下載 (38.68 KB)

2015-6-28 11:42

mark15jill

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

    "file.xlsx"
這個分開寫 試試看~

"file" & ".xlsx"

或改存
"file" & ".xls"

justintoolbox

回復 8# mark15jill
lpk187 : 謝謝你幫我測試 。雖然還沒有解決方法，不過還是很謝謝你提供一些訊息。
mark15jill :謝謝你提供你的一些建議 ，我剛剛也試過了。只是還是一樣到了"WinHttpReq.Send"就出現錯誤訊息 。

其他的高手不知道能否提供解決方案，拜託了 ～