[VBA/EXCEL] Salvare foglio Excel in nuova cartella

[elemiah]

Ciao, rieccomi dopo avere fatto una ricerca più precisa e grazie al tuo spunto, ho trovato del codice e l'ho modificato al mio bisogno, ecco di seguito le modifiche che ho aggiunto al tuo codice:

Dim VBC As Object
Dim p As String

Sub CopiaFoglio()

p = ActiveWorkbook.Path
ActiveSheet.Copy 'crea una nuova cartella
ActiveWorkbook.SaveAs p & "\Cartel2" '...o il nome che preferisci...

'ActiveWorkbook.Close '...questo l'ho tolto per lasciare aperto il workbook

' questo il codice aggiunto

With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With

End Sub


perfetto, mi copia il foglio attivo senza le macro o moduli vba.

Grazie del tuo spunto, senza non riuscivo a trovare la strada da seguire.