Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Ricerca in Files
- Hai un problema con Excel?
Ricerca in Files
di Crite (utente non iscritto) data: 24/06/2014 09:47:53
Ciao a tutti, ho il seguente prolema:
Ho una cartella contenente 'N' sottocartelle contenenti a loro volta dei file xls.
Ogni file contiene un gran numero di record.
Dovrei scandagliare tutti i file e ricercare al loro interno un numero di telefono (farla a mano mi viene la morte).
Pensavo di fare una script in VBA.
Qualcuno mi può aiutare?
Grazie Mille
Federico
di Crite (utente non iscritto) data: 24/06/2014 09:51:43
Dimenticavo di dire che vorrei salvare da qualche parte (magari su un foglio excel i record che contengono la stringa cercata).
di rambo424 data: 24/06/2014 12:09:21
Ciao!
potresti fare una cosa del genere, che ti looppa su tutti i file che sono nella tua path!
Può esserti utile?
Sub loop() Dim MyObj As Object, MySource As Object, file As Variant Path = ThisWorkbook.Path & "" Set fs = CreateObject("Scripting.FileSystemObject") Set MySource = fs.GetFolder(Path) For Each Files In MySource.Files '------codice---- Workbooks(Files.Name).Close savechanges:=True 'se ti serve anche il salvataggio next files
di rambo424 data: 24/06/2014 12:21:03
Scusami ma ho saltato la linea che ti apre il foglio di lavoro, che ti posto sotto
workbooks.open (files.name)
di critellus (utente non iscritto) data: 25/06/2014 11:35:07
Grazie mille per la risposta!!
Non me ne intendo di VBA... come faccio per ricercare la stringa che voglio nel loop?
è possibile avviare la macro all'apertura del file excel?
Grazie mille
- Vuoi Approfondire?
