[VB6] Cerca valori in file Excel chiusi e memorizzazione in file nuovo

[Nenma]

Ragazzi buongiorno, sono nuovo del forum e volevo se possibile una mano per completare questo codice che ricerca un valore in una determinata cella di vari file di excel riscrivendolo poi in unico file. il problema e che non so come aggiungere un istruzione che cicli anche tutti i fogli presenti nel file e ne riporti anche il nome del foglio in una ipotetica colonna c del nuovo file.
Ecco il codice


Private Sub CommandButton1_Click()
On Error Resume Next
folderspec = ("C:\Documents and Settings\Desktop\DPR Produzione\")

Dim fs, f, Nomefile, Cartella
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set Cartella = f.Files
Dim iRow, icol As Integer
x = InputBox("Cella Obiettivo", "Dichiara la cella da prelevare")
For Each Nomefile In Cartella
iRow = 1
icol = 1

While Cells(iRow, icol).Value <> ""
iRow = iRow + 1
Wend
Cells(iRow, icol) = Nomefile.Name
Range("B" & iRow).Formula = "='" & folderspec & "[" & Cells(iRow, 1).Value & "]" & "Foglio1'!" & x & ""
Next
Set fs = Nothing
Set Cartella = Nothing
Set f = Nothing
End Sub




Graxie in anticipo

[gibra]

Guarda che stai sbagliando completamente approccio.
Il FileSystemObject non c'azzecca assolutamente nulla.
In realtà sembra proprio che tu non abbia nemmeno la più pallida idea di cosa stai facendo.

Cells, Range, etc.... sono oggetti di Excel quindi sono disponibili solo all'interno di Excel ovvero devi aprire il file in un ambiente VBA, o all'interno di Excel stesso, oppure in un ambiente di progettazione (come C#,VB.NET, VB6, ...) tramite l'automazione di Excel.


Un file, in ogni caso, va prima aperto; cosa che il tuo codice non fa.

[Nenma]

Ciao... grazi della risposta. pero scusa secondo te come dovrei fare? Perche il codice funziona. Ovviamente devo metterlo in un Modulo di Excel ma a me va bene anche cosi. Mi potresti per piacere aggiungere il codice che cicla tutti i fogli?
Senno dimmi tu come dovrei fare. Grazie