從網路硬碟下載excel檔至桌面 卻無法正常開啟檔案
- 帖子
- 57
- 主題
- 14
- 精華
- 0
- 積分
- 73
- 點名
- 0
- 作業系統
- win8.1
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2015-4-2
- 最後登錄
- 2019-6-17
|
從網路硬碟下載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
|
|
|
|
|
|
|
|
- 帖子
- 57
- 主題
- 14
- 精華
- 0
- 積分
- 73
- 點名
- 0
- 作業系統
- win8.1
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2015-4-2
- 最後登錄
- 2019-6-17
|
9#
發表於 2015-6-28 14:46
| 只看該作者
|
|
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
8#
發表於 2015-6-28 11:48
| 只看該作者
各位前輩們大家好，小弟想從自己的網路硬碟下載EXCEL檔至桌面。
目前遇到的問題是：下載的檔案是錯誤的無法 ...
justintoolbox 發表於 2015-6-26 11:21 
"file.xlsx"
這個分開寫 試試看~
"file" & ".xlsx"
或改存
"file" & ".xls" |
|
|
多做多想多學習，少看少錯少迷途
多做=多多練習，多多編寫。
多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
多學習=學習人家的發問並解答，學習人家的寫法
少看=只看不做也枉然
|
|
|
|
|
- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
7#
發表於 2015-6-28 11:35
| 只看該作者
本帖最後由 lpk187 於 2015-6-28 11:43 編輯
回復 6# justintoolbox
下載後的檔案並不是.xlsx檔，而是.html檔，但你存的副檔名為.xlsx所以Excel誤以為是損壞的檔案，其實是.html檔
其實我也不會，我只是照著你原程式及方法去做，而發現的
|
|
|
|
|
|
|
|
- 帖子
- 57
- 主題
- 14
- 精華
- 0
- 積分
- 73
- 點名
- 0
- 作業系統
- win8.1
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2015-4-2
- 最後登錄
- 2019-6-17
|
6#
發表於 2015-6-28 04:41
| 只看該作者
回復 4# justintoolbox
想說請問各位高手，如果撇開小弟提供的代碼，
如果從網路硬碟下載連結為以下：（不需要帳號與密碼）
https://drive.google.com/uc?export=download&id=0B3PmLEYBktf4MENuMXZOcW9BN2M
該怎麼撰寫VBA？
網路下載這方面小弟真的很不懂。
再次懇請各位高手指點。
拜託了 |
|
|
|
|
|
|
|
- 帖子
- 319
- 主題
- 6
- 精華
- 0
- 積分
- 309
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2024-4-27
|
5#
發表於 2015-6-27 14:48
| 只看該作者
回復 4# justintoolbox
你說若電腦內有安裝googledrive 則可以下載檔案，但無法打開excel檔
那請你把你說的那個無法打開的excel檔
上傳給大家試試看能不能打開
如果我們也不能打開
是否可表示你用 VBA 下載的excel檔是個損毀的檔案
這樣至少可以先濾掉一些可能性 |
|
|
|
|
|
|
|
- 帖子
- 57
- 主題
- 14
- 精華
- 0
- 積分
- 73
- 點名
- 0
- 作業系統
- win8.1
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2015-4-2
- 最後登錄
- 2019-6-17
|
4#
發表於 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
該怎麼撰寫？再次懇請各位高手指點！拜託了！！！！！ |
|
|
|
|
|
|
|
- 帖子
- 319
- 主題
- 6
- 精華
- 0
- 積分
- 309
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2024-4-27
|
3#
發表於 2015-6-27 12:20
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 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
各位前輩們或高手們！能否指點迷津一下！拜託了！感恩！ |
|
|
|
|
|
|
|
。雖然還沒有解決方法，不過還是很謝謝你提供一些訊息。
。
