Primeiramente um ótimo dia a todos aqui !
Vamos eu tenho um Código que baixa arquivos da internet..segue ele usando a API do Windows.
Option Compare Database
#If VBA7 Then
Private Declare PtrSafe 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
#Else
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
#End If
Public Sub Download()
On Error GoTo Err
Dim Auxiliar As Long
Dim URL As String, CaminhoLocal As String
'URL = "http://www.tomasvasquez.com.br/downloads/modelocadastro.zip"
CaminhoLocal = "Local_onde_sera_salvo_o_arquivo.SuaExtensão"
Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
MsgBox "Download efetuado com sucesso!"
Exit Sub
Err:
MsgBox "Erro no download do arquivo"
End Sub
Ok este codigo funciona perfeitamente em sites onde existe Repositorios FTP, gostaria de saber se é possivel baixar de sites como o MEGA, OoDrive, GoogleDrive, por que estes sistes fornecem um linl para downloads, isto causa erros ao baixar o arquivo. veja que fiz um downloads de um TXT do MEGA.
Ou seja ele esta trazendo o Código da pagina HTML ao invés do próprio arquivo, existe alguma maneira de baixar o arquivo !!!!
Aguardo à ajuda dos colegas do fórum...Muito Obrigado a Todos...
Vamos eu tenho um Código que baixa arquivos da internet..segue ele usando a API do Windows.
Option Compare Database
#If VBA7 Then
Private Declare PtrSafe 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
#Else
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
#End If
Public Sub Download()
On Error GoTo Err
Dim Auxiliar As Long
Dim URL As String, CaminhoLocal As String
'URL = "http://www.tomasvasquez.com.br/downloads/modelocadastro.zip"
CaminhoLocal = "Local_onde_sera_salvo_o_arquivo.SuaExtensão"
Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
MsgBox "Download efetuado com sucesso!"
Exit Sub
Err:
MsgBox "Erro no download do arquivo"
End Sub
Ok este codigo funciona perfeitamente em sites onde existe Repositorios FTP, gostaria de saber se é possivel baixar de sites como o MEGA, OoDrive, GoogleDrive, por que estes sistes fornecem um linl para downloads, isto causa erros ao baixar o arquivo. veja que fiz um downloads de um TXT do MEGA.
- Código:
<!DOCTYPE html>
<!--[if lt IE 9]><html xmlns="http://www.w3.org/1999/xhtml" class="ie8"><![endif]-->
<!--[if IE 9]><html xmlns="http://www.w3.org/1999/xhtml" class="ie9"><![endif]-->
<!--[if (gt IE 9)|!(IE)]><!--> <html xmlns="http://www.w3.org/1999/xhtml" class="other"> <!--<![endif]-->
<head>
<meta http-equiv="X-UA-Compatible" content="IE=Edge" />
<meta http-equiv="Content-Type" content="text/html, charset=UTF-8" />
<meta name="viewport" content="initial-scale=1.0, maximum-scale=1.0, user-scalable=0"/>
<meta name="google" value="notranslate" />
<link rel="icon" href="https://mega.nz/favicon.ico?v=2" type="image/x-icon" />
<link rel="chrome-webstore-item" href="https://chrome.google.com/webstore/detail/bigefpfhnfcobdlfbedofhhaibnlghod" />
<meta name="apple-itunes-app" content="app-id=706857885"/>
<meta name="description" content="MEGA provides free cloud storage with convenient and powerful always-on privacy. Claim your free 50GB now!" />
<meta property="og:image" content="//eu.static.mega.co.nz/3/images/mega/logo-facebook.png" />
<title>MEGA</title>
<!--[if gte IE 9]><style type="text/css"> .gradient { filter: none; } </style><![endif]-->
</head>
<body id="bodyel">
<script type="text/javascript" src="secureboot.js?r=1481225102"></script>
<div id="overlay" style="display:none; width:100%; height:100%; position:absolute; left:0px; right:0px; cursor:wait; z-index:999999;"></div>
<div class="download-overlay" id="download_overlay" style="display:none;"></div>
<div id="pageholder" style="display:none;"></div>
<div id="startholder" class="fmholder"></div>
<div id="fmholder" class="fmholder" style="display:none;"></div>
<div id="mobilefmholder" style="display:none; width:100%;"></div>
<a href="" download="filename" id="dllink" style="display:none;"></a>
<div style="position:absolute;" id="startswfdiv"></div>
<div id="tooltip"></div>
<div style="position:absolute; left:0px; width:100%; top:0px; height:60px; z-index:99; display:none;" id="topmenufm">
</div>
<div id="popnotifications"></div>
</body>
</html>
Ou seja ele esta trazendo o Código da pagina HTML ao invés do próprio arquivo, existe alguma maneira de baixar o arquivo !!!!
Aguardo à ajuda dos colegas do fórum...Muito Obrigado a Todos...