Condividi:        

[Excel] Ricerca file in una directory

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Ricerca file in una directory

Postdi andrea030670 » 17/01/13 01:38

Ragazzi ciao

Ho bisogno del vostro aiuto

Devo cercare un file in una directory, il nome del file che devo trovare è scritto in una cella di un foglio excel (mettiamo per

esempio A1)

Come va scritta la macro?

Vi ringrazio in anticipo dell' aiuto
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Sponsor
 

Re: [Excel] Ricerca file in una directory

Postdi Flash30005 » 17/01/13 02:26

Ciao Andrea030670 e benvenuto nel Forum

Sei stato un po' scarso nel dare le informazioni e quindi sono costretto a farti qualche domanda
1) quale versione di excel hai?
2) vuoi sapere se esiste quel file in una determinata directory e/o in tutto l'HD?
3) vuoi conoscere, nel caso esista, la directory?
4) spiega altro se necessario

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 17/01/13 07:40

Flash30005 ciao
1) uso office 2007
2) la ricerca la voglio fare solo in una determinata directory
3) dimenticavo di dirti una cosa importante, la macro per ricerca del file dovrebbe contenere anche la funzione ricerca multipla.
Esempio io devo cercare PIPPO, nella directory esiste PIPPO_1, PIPPO_2. PIPPO_3 e io devo ricercarli tutti

Grazie e buona giornata
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Flash30005 » 17/01/13 10:21

Ok, alllora...
1) il percorso lo sai (ma c'è anche questo, insieme al nome del file, nella cella A1?)
2) conosci il nome del file (o la radice del nome)
3) vorresti ricercare quei file
e una volta trovati, cosa deve fare la macro?
Per esempio è sufficiente un messaggio che ti indichi il numero di file che hanno quel/quei nomi nella directory, o cos'altro dovrebbe fare?

Perdona ma non devo essere io a farti le domande per capire la tua esigenza

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 17/01/13 17:51

il percoso lo conosco, è sempre quello
il nome del file lo conosco, è quello che scrivo nella cella A1
vorrei che quando lancio la macro si apra la cartella dove è contenuto/i quei files
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Flash30005 » 17/01/13 18:30

Continuo ad essere perplesso
prova questa macro che ti apre la finestra del percorso indicato che modificherai secondo la tua esigenza
Codice: Seleziona tutto
Sub apri()
ChDir "C:\Temp\"  '<<<<<<<<<<< inserire il percorso completo di slash "\" finale
Application.Dialogs(xlDialogOpen).Show
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 17/01/13 19:46

Scusami se non sono stato chiaro
Cerco di postare un immagine cosi posso spiegarmi meglio

Intanto grazie
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 17/01/13 21:59

http://postimage.org/image/sc5v32kob/

ti posto un immagine del progamma, ho messo un adescrizione di quello che mi serve

Spero di essere stato piu chiaro

Grazie e ciao
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Flash30005 » 17/01/13 23:39

Io vedo solo un numero 51001235
cos'è?
non è un file altrimenti avrebbe un'estensione .txt, .doc, .xls. o altro
cosa vorresti fare con quel numero?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 18/01/13 00:38

quello è un dato scritto a mano, la macro dovrebbe cercarmi il disegno nella famosa directory

Forse è troppo complesso!!!!

Ciao
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Anthony47 » 18/01/13 01:00

Perdonate tutti, dopo 9 messaggi non ho ancora capito che cosa si deve fare: creare un elenco? (dove?) Aprire dei file? (di che tipo?) aprire Esplora risorse? Quando parli di "cartella" intendi una "Cartella di lavoro excel" o una "directory" del disco?

Per favore, ragioniamo sull immagine pubblicata senza cambiare.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 18/01/13 01:36

intendo una directory del disco.
Faccio un ultimo tentativo

su una cella di excel c'è scritto un codice (51001235) devo trovare nella directory che ho segnato nell' immagine postata il corrispondente file (è un disegno tecnico in pdf o dwg)

ciao
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Anthony47 » 18/01/13 02:10

Ok, quindi devo cercare un file tipo *51001235*.pdf oppure *51001235*.dwg (ho scritto *51001235* per indicare qualsiasi file che contenga i caratteri 51001235, es abc51001235011, abc51001235022, e simili).
Immagino che il pdf lo vorrai aprire con Adobe Reader (che versione hai?), se invece sono dwg con quale programma (installato sul tuo pc) vanno aperti?
Se sono stati trovati piu' file, li vuoi aprire tutti insieme o li vuoi presentati in un elenco e scegli manualmente?
E' giusto che la macro dovrebbe lavorare sulla "cella di colonna E in quel momento attiva", o su un valore impostato in un' altra cella?

"Per oggi" dovrebbe bastare...
Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 19/01/13 02:26

Finalmente ci siamo capiti
non voglio aprire i file ma solo cercarli, scegliero' io manualmente quale aprire.
Esatto la macro deve lavorare sulla cella attiva della colonna E

Atttendo tue

Ciao
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Flash30005 » 19/01/13 07:52

Mi sembra di averti già fatto una macro che creasse l'elenco dei file di una tua cartella infatti avevo più o meno lo stesso percorso.
comunque...
Aggiungi un foglio alla tua cartella di excel e rinominalo con nome "Elenco"
poi
inserisci in un modulo questa macro
Public perc As String, NFile As String
Codice: Seleziona tutto
Sub ElencoFileXls()
perc = "C:\Users\Andrea\Privata Andrea\Disegni\"   '<<< controlla se il percorso è corretto
'perc = "C:\temp\"  '<<<<< percorso test
Worksheets("Elenco").Select
Cells.Clear
Range("A1").Select
  With ActiveCell
    Worksheets("Elenco").Range(.Cells(1, 2), .End(xlDown)).ClearContents
  End With
  ElencoFile Direct:=perc, Estens:="*" & NFile & "*.*", Inicell:=ActiveCell
 
      Columns("A:B").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
 
End Sub
Sub ElencoFile(Direct As String, Estens As String, Inicell As Range)
  Dim i As Integer, f As String
  ChDir Direct
  Set oFs = CreateObject("Scripting.FileSystemObject")
  f = Dir(Estens)
  If f = "" Then Exit Sub
  While f <> ""
    DataF = FileDateTime(f)
    i = i + 1
    Inicell(i) = f
    f = Dir
    Cells(i, 2).Value = DataF
  Wend
End Sub

Infine nel Vba del foglio dei dati (quello dell'immagine), quindi NON nel modulo
inserisci questo codice
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("D" & Rows.Count).End(xlUp).Row
If UR < 2 Then UR = 2
CheckArea = "D2:D" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Target <> "" Then
NFile = Target
ElencoFileXls
End If
End If
End Sub


A questo punto ogni qualvolta che cliccherai su una cella della colonna D riportante una stringa o numero (nome file)
la macro creerà un elenco di tutti i file che hanno nel nome (all'inizio, all'interno o alla fine del nome) ciò che hai selezionato
e, inoltre, nella colonna B avrai anche la data di ultima modifica del/dei file stessi

Prova e fai sapere

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 19/01/13 11:47

Mi restituisce questo errore

http://s2.postimage.org/51qd2v1l5/Nuova ... bitmap.png

Questa macro mi scrive i dati ricercati nel foglio "elenco"

io pero' con la macro devo anche aprire quella cartella dove ci sono quei file

Scusami ancora per la mia incompetenza in merito

Grazie e buon week
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Anthony47 » 19/01/13 12:55

Finalmente ci siamo capiti
io pero' con la macro devo anche aprire quella cartella dove ci sono quei file

Temo allora di non aver capito...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Ricerca file in una directory

Postdi andrea030670 » 19/01/13 18:16

accidenti che peccato....sono nella caccaaaa, guarda la foto forse ........

http://postimage.org/image/9ze6sedhp/

grazie e ciao
andrea030670
Utente Junior
 
Post: 10
Iscritto il: 17/01/13 01:31

Re: [Excel] Ricerca file in una directory

Postdi Flash30005 » 19/01/13 20:37

andrea030670 ha scritto:io pero' con la macro devo anche aprire quella cartella dove ci sono quei file


Per aprire la cartella ti avevo già dato la macro giusta ma hai parlato di sapere quali file ci sono in una cartella quindi vuoi un elenco

andrea030670 ha scritto:guarda la foto forse ........
http://postimage.org/image/9ze6sedhp/


Non credo sia possibile fare un filtro per nome file
mentre è possibile averlo per estensione es. ti farò aprire quella cartella facendo vedere solo tutti i file .dwg, o .pdf ma non solo i file pippo_1.dvg ,pippo_2.pdf etc etc

E' proprio così difficile capire?

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [Excel] Ricerca file in una directory

Postdi Anthony47 » 19/01/13 21:15

Al comento di Flash (vedi sopra) aggiungo il mio:
nell' immagine allegata, andrea030670 ha scritto:e' proprio cosi' difficile???
cliccando il codice aprire questa finestra con macro

Non so quanto e' difficile, ma se ti chiedo
Anthony ha scritto:cosa si deve fare: creare un elenco? (dove?) Aprire dei file? (di che tipo?) aprire Esplora risorse? Quando parli di "cartella" intendi una "Cartella di lavoro excel" o una "directory" del disco?
e tu non mi rispondi se non parzialmente
in risposta, andrea030670 ha scritto:intendo una directory del disco.
Faccio un ultimo tentativo

su una cella di excel c'è scritto un codice (51001235) devo trovare nella directory che ho segnato nell' immagine postata il corrispondente file (è un disegno tecnico in pdf o dwg)

allora piu' che difficile e' impossibile risponderti.
(Sono conteno che hai editato il messaggio iniziale)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Ricerca file in una directory":


Chi c’è in linea

Visitano il forum: Marius44 e 52 ospiti