[VBA/EXCEL] Salvare foglio Excel in nuova cartella

[elemiah]

Ciao a tutti, spero qualcuno mi possa aiutare, ho cercato in lungo e largo ma non trovo quello che mi serve.

Ho una cartella excel (cartel1) con 12 fogli, al termine del lavoro svolto su un foglio qualsiasi dei 12, mi servirebbe tramite VBA riuscire a salvare il lavoro creando e salvando una nuova cartella (cartel2) che contenga solo il foglio attivo della cartella (cartel1) e possibilmente senza macro, o link di riferimento.

[claudio2002]

ciao a tutti sono nuovo e capisco poco di VBA ...ho copiato i codici di cui sopra e li ho adattati alle mie necessita',pero' non riesco a fare in modo che :
il foglio attivo sia copiato avendo la possibilita' di dargli un altro nome file
fare in modo che non mantenga i collegamenti delle formule presenti nei fogli e neanche le macro ...
E' Possibile ????
Grazie a chiunque voglia darmi una dritta
Questo e' il codice che ho rappezzato dal vs. forum (FUNZIONA ma copia tutto compreso collegamenti )
Dim VBC As Object
Dim p As String

Sub CopiaFoglio()

' (1)...
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = DDir '<<< Filtro per nome
.Title = "Scegli la directory per il foglio " & ActiveSheet.Name
.Show
If .SelectedItems.Count = 0 Then 'directory non scelta
MsgBox ("Scelta non effettuata, procedura abortita"): Exit Sub
End If
DDir = .SelectedItems(1) & "\"
End With
' (2)...
NewFName = DDir & FPrefix & ActiveSheet.Name & ".xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=NewFName
ActiveWorkbook.Close


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

[claudio2002]

Probabilmente sto' scrivendo nel posto sbagliato .....ma se qualcuno ci capita ......potrebbe essere utile a tutti ....
ho trovato una modifica che permette di copiare un singolo foglio di excel 2010 e salvarlo in una directory ....senza copiare anche tutti i collegamenti ai vari fogli di origine !!!! FUNZIONA




MACRO FUNZIONANTE COPIA SINGOLO FOGLIO EXCEL SENZA FORMULE RIPORTANDO TUTTI I DATI DI TESTO (PERFETTO)



Dim VBC As Object
Dim p As String

Sub CopiaFoglio()

' Seleziona la cartella destinazione in DDir
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = DDir '<<< Filtro per nome
.Title = "Scegli la directory per il foglio " & ActiveSheet.Name
.Show
If .SelectedItems.Count = 0 Then 'directory non scelta
MsgBox ("Scelta non effettuata, procedura abortita")
Exit Sub
End If
DDir = .SelectedItems(1) & "\"
End With

'Copia il foglio in un'altro al volo
'Converte tutte le formule del foglio nel
'valore al momento calcolato
ActiveSheet.Copy
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select

' Salva il foglio
NewFName = DDir & FPrefix & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.SaveAs Filename:=NewFName
ActiveWorkbook.Close

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

End If
Next VBC
End With
End Sub


cIAO A TUTTI

[LeleFT]

@claudio2002: sono passati più di 7 anni dall'ultimo intervento in questa discussione... non risollevare discussioni oramai morte e sepolte. Apri una nuova discussione, eventualmente linkando questa come riferimento.

PS: il codice va postato all'interno degli appositi tag [CODE] .. [/CODE] per mantenerne indentazione e formattazione.

Chiudo questa discussione.


Ciao.