cerca testo in più file

Question

Ciao a tutti,

dal codice che vi posterò cerco una parola in un file txt di cui specifico il percorso, e mi riporta una msgboxcon l'intera riga cui si trova la parola

tuttavia mi servirebbe cercare una parola in TUTTI i files EXCEL di una cartellaindicata.

Sub CERCA_NEI_FILES()

Dim NomeFile As String

NomeFile = "C:\AA\q.TXT"

Dim TestoRicercato

TestoRicercato = "*to*"

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 'predefinita=-2 Unicode=-1 ASCII=0

Dim FileScripting, File, TestoStreaming

Set FileScripting = CreateObject("Scripting.FileSystemObject")

If FileScripting.FileExists(NomeFile) Like "Vero" Then

   Set File = FileScripting.GetFile(NomeFile)

   Set TestoStreaming = File.OpenAsTextStream(ForReading, TristateFalse)

   Dim Linea

   Do While TestoStreaming.AtEndOfStream <> True

       Linea = TestoStreaming.ReadLine

       If Linea Like TestoRicercato Then

          MsgBox Linea

       End If

   Loop

   TestoStreaming.Close

Else

   MsgBox "Il file non esiste"

End If

qual'è il comando da utilizzare?

grazie per l'aiuto

Answer 1

Ho effettuato qualche test e le relative correzzioni:

Option Compare Database

Option Explicit

Function TrattaExcel()

' aggiungi a riferimenti Microsoft Excel xxx Object Library

    Dim xlApp   As Excel.Application

    Dim xlBook  As Excel.Workbook

    Dim xlSheet As Excel.Worksheet

    Dim wRiga As Long

    Dim wColonna As Long

    Dim Campo As String

    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = False         ' se non vuoi vedere a video l'xls che viene aperto

    Set xlBook = xlApp.Workbooks.Open("D:\MyPgm\Prova.xls")

' Anche qui se nei vari file pensi di avere più fogli devi ciclare su più

' su tutti i xlBook.Worksheets.Count -1 puntando ciascuno con xlBook.Worksheets(ind)

    Set xlSheet = xlBook.Worksheets("Foglio1")

    For wRiga = 1 To xlSheet.Cells.Rows.Count - 1

        For wColonna = 1 To xlSheet.Cells.Columns.Count - 1

             Campo = xlSheet.Cells(wRiga, wColonna)

       Next wColonna

    Next wRiga

Chiudi:

    xlBook.Close SaveChanges:=False

    xlApp.Quit

    Set xlSheet = Nothing

    Set xlBook = Nothing

    Set xlApp = Nothing

End Function

Ciao Mimmo

Answer 2

Ciao Andrea,

in effetti, non avevo considerato questo piccolo particolare :-)

Quindi con l'aiuto dell'esempio di Mimmo e le informazioni che puoi trovare qui http://msdn.microsoft.com/en-us/library/office/ff839746.aspx  potresti cavartela.

Answer 3

Ciao Andrea,

nel forum puoi trarre spunto dal seguente link:

http://answers.microsoft.com/it-it/office/forum/office_2010-access/leggere-foglio-excel-da-vba/cb0b3952-61d7-48a4-b763-725a7bb05760

con la parola chiave 'Excel' comunque trovi anche dell'altro.

Ciao Mimmo.

Answer 4

Ciao Cinzia, grazie per l'aiuto.

Purtroppo il principale problema è che non legge i files excel ma solo i txt.

Ho tentato anche una soluzione con input #1, ma anche lui non si addentra nei files xls/xlms

Answer 5

Ciao AndreaM

Per fare quello che vuoi basta avere l'elenco di tutti i files Excel presenti in una determinata cartella e poi applicare a ciascun file la routine che hai già scritto. 

Qui trovi  un paio di suggerimenti che potrebbero esserti utili su come enumerare i files presenti in una cartella http://www.freevbcode.com/ShowCode.asp?ID=1331