Senhores, estou com uma situação semelhante.
Tenho um banco de dados em ACCESS hospedado no GDRIVE, ocorre que quando faço o download dele utilizando uma rotina em VBA, esse banco de dados fica corrompido, com a mensagem: "formato de banco de dados não reconhecido" . Usei a mesma rotina para fazer download desse arquivo por 4 anos e ela sempre funcionou sem nenhum problema, porém desde o mês passado surgiu esse problema.
E reafirmo, o banco de dados só fica corrompido quando tento baixar utilizando a rotina em VBA, se eu entrar no GDRIVE e fizer o download, não haverá nenhum problema.
Desde já agradeço a gentileza de quem puder me dar uma luz. Segue abaixo a rotina que utilizo:
Tenho um banco de dados em ACCESS hospedado no GDRIVE, ocorre que quando faço o download dele utilizando uma rotina em VBA, esse banco de dados fica corrompido, com a mensagem: "formato de banco de dados não reconhecido" . Usei a mesma rotina para fazer download desse arquivo por 4 anos e ela sempre funcionou sem nenhum problema, porém desde o mês passado surgiu esse problema.
E reafirmo, o banco de dados só fica corrompido quando tento baixar utilizando a rotina em VBA, se eu entrar no GDRIVE e fizer o download, não haverá nenhum problema.
Desde já agradeço a gentileza de quem puder me dar uma luz. Segue abaixo a rotina que utilizo:
- Código:
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
Public Sub Download()
Dim URL As String
Dim CaminhoLocal As String
URL = "https://drive.google.com/uc?export=&id=11NaeCTqp3FFyyICe8W-mQ1v4zpj_8Exc"
CaminhoLocal = "C:\Users\Downloads\ATUALIZA.mdb"
Call URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
End Sub