di Apache84 » 28/01/10 16:49
I file sono circa un 200 e i valori da cambiare possono essere fatti anche uno per volta non c'è problema.
Uso office2003 su una Workstation.
Ovviamente i file modificati vorrei richiuderli salvandoli.
Sub Macro3()
'
' Macro3 Macro
' Macro registrata il da Utente
'
'
Workbooks.Open Filename:= _
"D:\Documents and Settings\xxxxx\Desktop\PROVA\PROVA\G901.occ.xls"
Cells.Replace What:="PIPPO", Replacement:="PLUTO", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"D:\Documents and Settings\xxxxx\Desktop\PROVA\PROVA\I001.cmp.xls"
Cells.Replace What:="PIPPO", Replacement:="PLUTO", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Fatto come mi hai richiesto,
mi piacerebbe avere un qualcosa per specificare il valore da cercare e qualcosa in cui poter identificare il percorso dove sono tutti i file.
Grazie