Premetto che non sono esperto di macro e quindi ho provato, giusto per provare, ad adattare questa macro secondo le mie esigenze ma purtroppo mi sono inciampato
:
io ho questa macro che salva il foglio corrente PIPPO nella directory in cui si trova con il nome del file PLUTO (il nome del foglio PIPPO resta uguale anche nel nuovo file) e fin qui tutto ok: dopodichè a me basta così però la macro continua con il foglio successivo e non sono riuscito a capire come interromperla dopo il primo foglio (me ne interessa soltanto 1). Quando poi vado ad aprire il nuovo file creato mi da errore nel file stesso dicendo che
"il formato del file che si sta cercando di aprire, "Pluto.xls", è diverso da quello specificato dall'estensione del file. Prima di aprire,verificare che non sia danneggiatoe che provenga da una fonte attendibile."
Sub SalvaFoglio()
'
FPrefix = "" 'Prefisso che sara' aggiunto al nome foglio per formare il nome file
'
DDir = ActiveWorkbook.Path
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Visible = False Then GoTo SkipSh
Sheets(i).Select
' (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 & "Pluto.xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=NewFName
ActiveWorkbook.Close
SkipSh:
Next i
'
End Sub
Sapete dirmi come posso risolvere il problema?
Ciao