VBA – scaricare tramite funzione di VBA un file da un sito web

vbaVisual Basic for Application è un linguaggio di programmazione che ci permette di interagire con i prodotti di Microsoft Office  e di creare dei veri e propri applicativi.

La definizione di Wkipedia del VBA è la seguente: “Visual Basic for Applications (VBA) è un’implementazione di Visual Basic inserita all’interno di applicazioni Microsoft quali la suite Microsoft Office o (Visio), altri programmi contengono un’implementazione parziale di VBA (ad esempio AutoCAD e WordPerfect). VBA espande i linguaggi di scripting contenuti precedentemente in tali applicazioni (come il Word Basic di Microsoft Word) e può essere utilizzata per controllare praticamente tutti gli aspetti dell’applicazione ospite, quali l’interfaccia utente (manipolazione dei menu, delle toolbar, ecc.)”.

Uno funzione che ho trovato molto comoda è quella di effettuare il download di un file da sito web direttamente utilizzando un pulsante di Access.

Vi riporto di seguito il codice completo che potrete copiare e incollare nei vostri lavori in VBA, le uniche righe da cambiare nel codice sono le seguenti:

Const DOW = “C:\temp\   –> inserire la vostra directory in locale dove copiare il file
filename = “manual-it.pdf –> nome del file da copiare
sURL = “http://www.freepops.org/files/” & filename –> indirizzo web di origine

Ecco il codice completo:

—————————————————————————————

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

Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal  As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

Sub downFLash()
    Dim sURL    As String
    Dim LocalFilename   As String
    Dim filename As String
   
    Const DOW = “C:\temp\”
   
    filename = “manual-it.pdf”
    sURL = “http://www.freepops.org/files/” & filename
    LocalFilename = DOW & filename

    Debug.Print DownloadFile(sURL, LocalFilename)
    
End Sub

—————————————————————————————

Questa voce è stata pubblicata in Access, Excel, Microsoft Office. Contrassegna il permalink.

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *