Office中国论坛/Access中国论坛

标题: 由 google云端硬碟下载文件 [打印本页]

作者: c101 时间: 2014-6-30 10:12
标题: 由 google云端硬碟下载文件
由 google云端硬碟下载文件
我的VBA 如下:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Dim strURL As String
Dim strPath As String
Dim strFile As String

strFile =  "123.xls"
strURL = "https://drive.google.com/?tab=wo&authuser=0#my-drive/" & strFile
strPath = "C:\xls\" & strFile
Ret = URLDownloadToFile(0, strURL, strPath, 0, 0)
If Ret = 0 Then
      MsgBox "File successfully downloaded ok "
Else
      MsgBox "Unable to download the file"
End If

执行结果 C:\xls\ 的  123.xls 是空的( 没有工作表 )。
请教大大要如何修正?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)