Salvare foglio come singolo fi

Hai un problema con Excel?

Nuova discussione

Salvare foglio come singolo fi
di Rino (utente non iscritto) data: 01/05/2011
Buongiorno e buona domenica dovrei salvare un foglio come singolo file, mi spiego meglio ho un file con quattro fogli principale - appoggio - setup - db, vorrei salvare un file che si chiamerà con il nome inserito in una cella del foglio principale ma il file dovrà contenere solo il foglio principale. per l'assegnazione del nome e il percorso dove salvarlo l'ho risolto ma non riesco a salvare solo il foglio principale mi salva sempre tutto il file.
ringrazio chi mi aiuta e gli altri che mi leggono.
rino
di Compasso (utente non iscritto) data: 02/05/2011
Ciao.
dovresti eliminare gli altri fogli, prima di salvare "con nome".
ho avuto un problema simile e l'ho risolto con una macro in cui, appunto, prima eliminavo il superfluo e successivamente salvavo il file con un nome nuovo: il file originario rimane invariato e il nuovo ha solo quanto necessario.
ciao.
di Rino (utente non iscritto) data: 03/05/2011
Ti ringrazio ma ho risolto.
domani ti posto la soluzione che non è quella di eliminare i fogli superflui ma copiare solo il foglio che vuoi a domani
rino

Copia foglio in un file
di Rino (utente non iscritto) data: 03/05/2011
Ome promesso ti posto il modo con cui ho risolto.
come si vede dal vba basta inserire prima del salvataggio (saveas) queste due righe
sheets("xxxx").select
sheets("xxxx").copy
ciao rino

Sub reg()
    Application.ScreenUpdating = False
    Sheets("SETUP").Select
    n_ordine = Cells(2, 1)
    cliente = Cells(2, 2)
    cartella_xxxx = "xxxx" 'Cells(3, 1)
    Sheets("xxxx").Select
    percorso = "C:xxxx" & "" & n_ordine & "_" & cliente & ".xls"
    
    Sheets("xxxx").Select
    Sheets("xxxx").Copy
    
    ActiveWorkbook.SaveAs Filename:=percorso, _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ScreenUpdating = True
End Sub

Vuoi Approfondire?