Importazione testo immagini

Hai un problema con Excel?

Nuova discussione

Importazione testo immagini
di valemarie (utente non iscritto) data: 28/11/2016 11:10:11
Ciao a tutti.
Ho una cartella con una lunga serie di immagini. Non posso allegarvi un file di esempio perchè non c'è... devo crearlo in base a cosa posso fare e se mi potete aiutare. Cerco di spiegarmi al meglio.

Ho una cartella con tantissime immagini .jpg
ad esempio 12345.jpg oppure 67891.jpg
e io avrei bisogno di creare una colonna in excel importando solo il testo delle immagini, quindi:
Colonna A riga 1 12345
Colonna A riga 2 67891

e via così.
Mi potete aiutare?
grazie

di Luca73 data: 28/11/2016 11:44:06
Ciao
come te la cavi con il VBA?
Ti invio una routine che avevo scritto tempo fa per un caso simile al tuo. va adattata allo scopo.
Per partire devi selezionare uno qualsiasi dei file nella cartella.
Ciao
Luca

Sub Elencafile()

Dim folderpath, fileToOpen
Dim fs, f, f1, fc, s
Dim Numero
Sheets("Elenco").Select
Cells.ClearContents

fileToOpen = Application.GetOpenFilename("Tutti i file (*.*), *.")
Set fs = CreateObject("Scripting.FileSystemObject")
If fileToOpen <> False Then
    
    Set fileuno = fs.getfile(fileToOpen)
    Set f = fileuno.parentfolder
    Numero = 1
    Range("A1").Formula = f.Name
    Set fc = f.Files
    For Each f1 In fc
            Range("A1").Offset(Numero, 1).Formula = f1.Name
            Numero = Numero + 1
    Next
End If
End Sub

di alfrimpa data: 28/11/2016 11:47:25
Ciao valemarie e un caro saluto a Luca

Puoi anche provare con la macro che vedi sotto modificando il percorso nel punto indicato

Alfredo

Sub ElencaJPG()
Dim strFile As String
    Dim strPath As String
    Dim intRow As Integer
    strPath = "c:prova" '<==== Modifica con tua directoy
    strFile = Dir$(strPath & "*.jpg") '
    Do While Len(strFile)
        intRow = intRow + 1
        Range("A" & intRow).Value = strFile
        strFile = Dir$
    Loop
End Sub

di Valentina (utente non iscritto) data: 28/11/2016 11:56:25
PERFETTO!!!!!

Vuoi Approfondire?