Menu

VBA: Fare una lista dei file in una cartella

18 luglio 2016 - Excel macro

Oggi avevo la necessità di importare dei dati di excel da un altro foglio che solitamente sta nella stessa cartella ma potrebbe cambiare nome dato che di solito ad ogni cambiamento di codice vba in un foglio incremento la versione nel nome del file tipo da “Importa 001” ad “Importa 002”. Questa routine non fa altro che controllare la cartella dove risiede il file che esegue la macro e scrivere nella colonna A il nome del file e nella colonna B il Percorso piu il nome

Sub Pulsante2_Click()
    Dim Riga As Integer
    Percorso = Application.ThisWorkbook.Path & "\"   ' Percorso con \
    Riga = 1
    File = Dir(Percorso)    ' Primo file.
        Do Until File = ""   ' Inizio Ciclo.
            If File = Application.ThisWorkbook.Name Then GoTo Prossimo ' salta quanto trova se stesso
            ActiveSheet.Cells(Riga, 1).Value = File 'Scrive nella prima colonna il nome del file
            ActiveSheet.Cells(Riga, 2).Value = Percorso & File ' Scrive nella seconda colonna Percorso + Nome
            Riga = Riga + 1
Prossimo:
            File = Dir()   ' Prossimo file.
        Loop
    ImportaDati
End Sub

 

Screenshot at 2016-07-18 08:38:11

Screenshot at 2016-07-18 08:35:52

Lascia un commento