help-excel 2007 macro apertura e modifica massiva files

[raffa.caraffa]

ciao a tutti ,
ho aperto un nuovo post per chiedere un help ... mi trovo alle prese con excel 2007 e devo creare una macro che apra massivamente una serie di files contenuti in una specifica cartella ... ed una volta aperti moficare delle formattazioni / dati / stringhe ... ecc... una cosa simile la facevo con la versione del 2003 usando la funzione :
set fs = application.filesearch ... che non è più supportata nel 2007
With fs
.LookIn = "C:\Documents and Settings\xxxxxx\Desktop\xxxxxxxxx"
.FileName = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)

potete aiutarmi ???
grazie 10000
raffa

[Anthony47]

Ciao raffa e benvenuto nel forum.
Guarda questa discussione: viewtopic.php?f=26&t=84713#p482218
poi adatta la Sub Trova ai tuoi bisogni; usa la funzione Dir.

E se non riesci posta ancora...

Ciao.

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Public Percorso As String
Sub Archivio()
ChDrive "C"
Range("A1").Select
Percorso = "C:\Data\"   '<<<< percorso
Trova Direct:=Percorso, Estens:="*.*", Inicell:=ActiveCell
End Sub
Sub Trova(Direct As String, Estens As String, Inicell As Range)
  Dim i As Integer, f As String
  ChDir Direct
  f = Dir(Estens)
  If f = "" Then Exit Sub
  While f <> ""
    i = i + 1
    Inicell(i) = f   '<<<< scrive i nomi dei file a partire dalla cella A1
    f = Dir
  Wend
'Worksheets("Foglio1").[A1] = i + 1    ' Scrive il numero dei file trovati nella cella A1
End Sub


La tua macro conta solo i file
Con questa puoi contare i file oppure ricavarti il nome che insieme al percorso ti permette di aprirli uno ad uno e modificare ciò che vuoi

Ciao

P.s. Aggiungo, che mi sono quasi "accavallato" con il post di Anthony, comunque la macro è simile a quella del link