Ricerca file xls

Hai un problema con Excel?

Nuova discussione

Ricerca file xls
di Alessio (utente non iscritto) data: 19/10/2013 18:46:49
Salve. Ho visto nelle precedenti discussioni ma sinceramente non ho capito un tubo. Mi servirebbe una macro che mi trovi tutti i file excel che ho nel desktop elencandoli dalla cella A1 a scendere. Grazie

di Raffaele_53 (utente non iscritto) data: 20/10/2013 14:23:20
Vedi se va bene.

Sub LeggiFilesExcel()
Dim X As Long
Dim File As String
Cartella = "C:UsersxxxxDesktop" 'da cambiare gli xxxx
File = Dir(Cartella & "*.x*")
X = 1
Do While File <> ""
Cells(X, 1) = File
File = Dir
X = X + 1
Loop
End Sub

di Alessio (utente non iscritto) data: 20/10/2013 20:37:48
Ciao Raffaele. Grazie del codice ma non va.
di Raffaele_53 (utente non iscritto) data: 20/10/2013 21:53:22
Quale fantasia nella risposta?
Suggerimenti Zero = Zero

di Rita (utente non iscritto) data: 21/10/2013 10:02:26
....non va e' troppo poco effettivamente
prova questa qui sotto
devi cambiare in .....myPath = "C:.............Desktop"
l'esatto percorso del deskstop

Sub trova()
Dim myPath, MyFileFound
Dim FSO As Object
Dim F As Object
Dim Fi As Object
Dim v, num As Long
Dim MyFile
Application.DisplayAlerts = False
MyFile = ActiveWorkbook.FullName
num = 0
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
myPath = "C:.............Desktop"
Set F = FSO.GetFolder(myPath)
For Each Fi In F.Files
If LCase(FSO.GetExtensionName(Fi.Path)) = "xls" Then
Range("a" & num + 1) = Fi
num = num + 1
End If
Next
End Sub

di Alessio (utente non iscritto) data: 21/10/2013 11:13:21
Non va nel senso che quando clicco il pulsante abbinato alla macro non succede nulla! Nemmeno con la macro di Rita fa nulla.
di Vecchio Frac data: 21/10/2013 11:22:00
Entrambe le macro proposte funzionano perfettamente, con la lieve correzione che propongo al codice di Rita perchè trovi tutti i file Excel di qualunque formato:
If LCase(FSO.GetExtensionName(Fi.Path)) Like "xls*" Then

Quindi il problema è nelle tue impostazioni.
Verifica di aver attivato le macro, che il percorso esista e che contenga dei file Excel, e verifica di aver associato la macro al pulsante... banalità, ma sai quante volte ;)
di Alessio (utente non iscritto) data: 21/10/2013 11:47:40
Sbagliavo io invece di mettere User mettevo Utente! Grazie mille

Vuoi Approfondire?