- Codice: Seleziona tutto
Range("A:M").Copy
Ciao
Moderatori: Anthony47, Flash30005
Workbooks.Open Filename:= _
"C:\Tuo-Percorso\Scarico.xls", Password:="password-del-file"
Ci avevo creduto...per il momento mi accontento
Sub giancagg()
Workbooks.Open Filename:="tuo file", Password:="tua password", WriteResPassword:="tua password"
SxNomi = "prima parte nome file" '<<< La sequenza iniziale dei nomi Gestionali
SrcFile = "file di origine" '<<< Il file da cui leggi
For Each Wb In Workbooks
If Left(Wb.Name, Len(SxNomi)) = SxNomi Then
Workbooks(SrcFile).Activate
Sheets("foglio").Select
Range("A:M").Copy
Wb.Sheets("foglio").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next Wb
End Sub
Torna a Applicazioni Office Windows
Aggiornamento automatico intervallo grafici Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 3 |
Schermo nero dopo aggiornamento driver video, GPU nuova Autore: Pen061 |
Forum: Assistenza Hardware Risposte: 5 |
Visitano il forum: Nessuno e 84 ospiti