MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  waraujo 13/12/2016, 17:52

    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.


    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...


    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7920
    Registrado : 15/03/2013

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Alvaro Teixeira 13/12/2016, 22:20

    Olá, veja se ajuda:
    stackoverflow.com/questions/17877389/how-do-i-download-a-file-using-vba-without-internet-explorer

    Abraço
    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  waraujo 14/12/2016, 00:45

    Ola Teixeira !

    Seguinte não funcionou não, esta função API ela traz parece a pagina web sabe, pra depois o usuario clicar em baixar, acho que precisa manipular esta ação do clicar para baixar, não sei to viajando....mas o fórum que voce passou é quase a mesma coisa que ja tenho aqui não vai ele acaba baixando um arquivo com o codigo html...o seja nada a ver com o arquivo em si baixado....sera que teria outra solução ....


    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  waraujo 16/12/2016, 11:50

    Ainda estou procurando a solução !!!!!


    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7920
    Registrado : 15/03/2013

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Alvaro Teixeira 21/12/2016, 16:55

    Olá veja se ajuda:

    excelgaard.dk/Lib/GetSpecialFolder/
    ou
    eng-tips.com/viewthread.cfm?qid=378537
    ou este
    vbaexpress.com/kb/getarticle.php?kb_id=799

    Copiar link e colar no navegador - Links externos não são permitidos.
    Abraço
    avatar
    Guima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 26/09/2010

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Guima 23/1/2017, 03:33

    Ola Senhores,

    Tenho o mesmo problema do amigo que criou o tópico, porém eu já desisti de todas as tentativas... nenhuma delas funcionou a contento.

    Enfim, estou partindo para uma solução alternativa. Tenho um banco em ACCESS que é atualizado todo dia, dessa forma ele precisa ser baixado quando o software for acessado e por isso preciso deixar ele disponível online para que seja atualizado ao menos uma vez por dia.


    Gostaria então que os colegas mais experientes me indiquem algum local para armazenar esse banco de dados para que possa ser atualizado e baixado diariamente.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7920
    Registrado : 15/03/2013

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Alvaro Teixeira 23/1/2017, 12:21

    Olá a todos,
    A única alternativa que encontrei na foi na MeoCloud que tem 16Gb e é de borla.

    Ao partilhar, tem um link direto que funciona pelo metodo tradicional, vejam:
    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro 11ts6cn

    Se alguem não tem conta e vai criar, agradeço que utilize o meu refral, na caixa abaixo.
    Código:
    https://meocloud.pt/?referral_code=CMXl0GgjbTrf4cX2yaiKq4cBX
    Ambos ganhamos 512Mb quando o utilizador novo concluir, um Upload, Uma partilha, e uma Instalação da aplicação (pc ou smartphone)

    Abraço
    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  waraujo 6/2/2017, 07:53

    Bom Dia !!

    Nada ainda né amigos, vejo que esta solução é complicada.
    No momento estou utilizando um servidor Host de site gratuito, eu criei uma pasta chamada download dentro da pasta public no domínio do site e através deste host eu tenho acesso a fazer o download, porem o espaço é pequeno pensando em uma aplicação maior já terei problemas o Google Drive/Ondrive ou outro cloud seria a melhor cartada para este problema...

    Um Grande Abraço.


    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7920
    Registrado : 15/03/2013

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Alvaro Teixeira 6/2/2017, 08:27

    Olá, o que acha da sugestão da mensagem n.7.
    Sei que não responde à questão do tópico, mas pode ser uma alternativa.
    Abraço
    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  waraujo 13/2/2017, 23:09

    Teixeira Boa noite !!!

    Não testei seu exemplo ainda as coisas estão meio corridas aqui, eu estou utilizando um servidor host de web site, mas gostaria mesmo era de poder utilizar cloud como MEGA / GoogleDrive / OnDrive, são storage com grande capacidade de armazenamentos, mas vou ver ser consigo testar esta sua ideia...
    Só uma Dúvida você testou este cloud com a função abaixo, pois é esta função que estou utilizando para baixar arquivos da internet, sera que vai funcionar ? pois verifiquei que voce esta utilizando um Link e é estes links que não funciona como os gerados por exemplo do GoogleDrive.


    'Codigo para fazer download.
    #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

    Private Declare PtrSafe Function SHFileOperation Lib _
    "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) 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

    Private Declare Function SHFileOperation Lib _
    "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

    #End If

    Private Const FO_DELETE = &H3
    Private Const FOF_ALLOWUNDO = &H40
    Private Const FOF_NOCONFIRMATION = &H10

    Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long
    End Type


    Public Sub Download()
    On Error GoTo Err
    Dim Auxiliar As Long
    Dim URL As String, CaminhoLocal As String

    URL = "CaminhoDaURLCompleto/SeuArquivo.extensão"
    CaminhoLocal = "CaminhoNaRede\SeuArquivo.extensão"

    FazerDownload = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
    MsgBox "Download efetuado com sucesso!"
    Exit Sub
    Err:
    'MsgBox "Erro no download do arquivo"
    End Sub


    Grande abraço !!!!
    Fica com Deus.


    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7920
    Registrado : 15/03/2013

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Alvaro Teixeira 16/2/2017, 16:21

    Olá Wellington Araujo,

    Construí pequeno exemplo com base no seu código que está no Repositório de Exemplos:
    www.maximoaccess.com/t29327-exemplo-download-direto

    Se baixar, pode testar a técnica que indiquei do link direto da MeoCloud.

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7920
    Registrado : 15/03/2013

    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Alvaro Teixeira 10/3/2017, 20:26

    Olá Wellington Araujo,

    Como ficou a situação?
    Os utilizadores do fórum merecem e agradecem o retorno
    .

    Atualizei o exemplo, agora já permite baixar do Dropbox.
    https://www.maximoaccess.com/t29327-exemplo-download-direto-download-direto-dropbox

    Abraço

    Conteúdo patrocinado


    Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro Empty Re: Baixar Arquivos de Sites como GoogleDrive, MEGA ou Outro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2024, 00:57