un pò per sperimentazione un pò per possibili utilizzi futuri, sto lavorando ad un file che tramite un pulsante attiva una macro che dovrebbe aggiungere nella cella B202 di tutti i files presenti in una cartella specifica un testo specifico.
Ipotizziamo che i files presenti nella cartella sono in formato .xlsm e tutti con un nome differente (come prova i files sono rinominati test1.xlsm, test2.xlsm, ecc fino al nr.8 ).
Fino ad ora sono arrivato a questo punto
- Codice: Seleziona tutto
Sub FirmaTutto()
Dim fName As String
Dim wbk As Workbook
Dim myPath As String
myPath = "C:\utente\Nuova cartella\"
fName = Dir(myPath)
Application.ScreenUpdating = False
Do While fName <> ""
Set wbk = Workbooks.Open(fName)
Range("B202").Value = "TESTO PERSONALIZZATO"
wbk.Save
wbk.Close
fName = Dir()
Loop
Application.ScreenUpdating = True
End Sub
in cui mi sono bloccato in quanto ricevo errore di run-time 1004 all'apertura del primo file:
test1.xlsm non è stato trovato. Verificare che il file non sia stato spostato, rinominato o eliminato.
Inoltre volevo chiedere perchè su questo argomento in parte correlato al presente post, non ho trovato nulla:
E' possibile scrivere qualche cosa anche nel vba modulo (esempio ' ---TESTO PERSONALIZZATO) oltre che nella cella del primo foglio?
