Riportare nome file

Hai un problema con Excel?

Nuova discussione

Riportare nome file
di Leonardo (utente non iscritto) data: 08/05/2014 10:14:38
Buondì. Spiego subito il mio problema facendo un esempio: sul desktop ho una cartella di nome Prova dove all'interno ci sono dei file tipo excel.xls pdf.pdf testo.doc. Nella cella C3 mi dovrebbe mettere il nome del primo file ad esempio excel.xls, nella C4 il nome del file successivo pdf.pdf nella C5 testo.doc ed a seguire con gli altri file. Grazie

di Lucas87 data: 08/05/2014 10:42:57
Ciao
Prova così
Modifica il codice scrivendo il percorso del file (attento alla finale)

Sub nomefile()
    Percorso = "C:" 'percorso con la  finale
    nomefile = Dir(Percorso)
    i = 1
    Do While nomefile <> ""
        Cells(i, 1) = nomefile
        i = i + 1
        nomefile = Dir
    Loop
End Sub

di Lucas87 data: 08/05/2014 11:01:18
Ops....così scrive da A1 in poi. A te invece serve da C3

Sub nomefile()
    Percorso = "C:" 'percorso con la  finale
    nomefile = Dir(Percorso)
    i = 3
    Do While nomefile <> ""
        Cells(i, 3) = nomefile
        i = i + 1
        nomefile = Dir
    Loop
End Sub

di Leonardo (utente non iscritto) data: 09/05/2014 07:07:09
Grazie Lucas87, ho provato il tuo codice e funziona alla grande! Ora ti vorrei se è possibile fare la stessa cosa però avere come risultato il solo nome del file senza l'estensione e poi come si può modificare dove dice:

Percorso = "C:" 'percorso con la finale

in questo modo:

Percorso = cella(B7)

dove nella cella B7 ho il percorso del file. Grazie

di lepat (utente non iscritto) data: 09/05/2014 07:38:03
prova questa

Sub nome_file()
    Percorso = Range("B7").Text
    nomefile = Dir(Percorso)
    i = 3
    Do While nomefile <> ""
        Cells(i, 3) = Left(nomefile, InStrRev(nomefile, ".") - 1)
        i = i + 1
        nomefile = Dir
    Loop
End Sub

di Leonardo (utente non iscritto) data: 09/05/2014 13:54:29
Ok, perfetto. Grazie tante
di Leonardo (utente non iscritto) data: 10/05/2014 12:02:05
Scusate se riapro la discussione ma mi servirebbe quest'ultimo rigo di codice e cioè:

se il percorso in B7 non esiste then
msgbox "Percorso inesistente"

di Lucas87 data: 10/05/2014 13:12:17
Ciao
Prova così...

Sub nome_file()
    percorso = Range("B7").Text
    nomefile = Dir(percorso)
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.folderexists(percorso) = True Then
        i = 3
        Do While nomefile <> ""
            Cells(i, 3) = Left(nomefile, InStrRev(nomefile, ".") - 1)
            i = i + 1
            nomefile = Dir
        Loop
    Else
       MsgBox "La cartella non esiste"
    End If
End Sub

di Leonardo (utente non iscritto) data: 11/05/2014 11:05:29
Ok, funziona alla grande. Grazie mille

Vuoi Approfondire?