Salve. se volessi salvare solo il foglio attivo Dandoli il nome del contenuto
della cella B2 e D2, e salvarlo in un percorso es. C:\users\camel\desktop\lavoro
rimanendo nel file originale dove sto lavorando, come posso fare?
grazie
Moderatori: Anthony47, Flash30005
Sub salva2()
Directory = "C:\users\camel\desktop\lavoro\"
ThisFile = [B2] & [D2] & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile
'<<<< eliminare le righe che seguono se non occorrono
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & (ThisFile), vbInformation
End Sub
In alternativa alla macro di Flash (vedi sopra) io suggerirei:angelo72 ha scritto:salvare solo il foglio attivo Dandoli il nome del contenuto
della cella B2 e D2, e salvarlo in un percorso es. C:\users\camel\desktop\lavoro
rimanendo nel file originale dove sto lavorando
Sub angelo()
myDir = "C:\users\camel\desktop\lavoro"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=myDir & "\" & Range("B2") & Range("D2") & ".xls"
ActiveWorkbook.Close
End Sub
ActiveWorkbook.SaveAs Filename:=myDir & "\" & Range("B2") & Range("D2") & ".xlsm"
Sub FoRAnge()
Dim mySorg As String, myRange As String, myDir As String, myFile As String
'
'>>> PARAMETRI:
mySorg = "Foglio2" '<< Il foglio da copiare
myRange = "B2:Z50" '<< L'area da copiare
myDir = "C:\users\camel\desktop\lavoro" '<< La directory di salvataggio
'
Sheets(mySorg).Select
ActiveSheet.Copy
Cells.ClearContents
Range(myRange).Value = ThisWorkbook.Sheets(mySorg).Range(myRange).Value
myFile = myDir & "\" & Range("B2").Value & Range("D2").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=myFile, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:=""
ActiveWorkbook.Close
MsgBox ("Salvato file " & myFile & vbCrLf & "nella directory " & myDir)
End Sub
myFile = myDir & "\" & Range("B2").Value & Range("D2").Value & ".xlsx"
ActiveWorkbook.SaveAs Filename:=myFile, _
FileFormat:= xlOpenXMLWorkbook, Password:="", WriteResPassword:=""
Sub FoRAnge2()
Dim mySorg As String, myRange As String, myDir As String, myFile As String
'
'>>> PARAMETRI:
mySorg = "Foglio11" '<< Il foglio da copiare
myRange = "A2:AM50" '<< L'area da copiare
myDir = "C:\users\camel\desktop\lavoro" '<< La directory di salvataggio
'
Sheets(mySorg).Select
Workbooks.Add
ThisWorkbook.Sheets(mySorg).Range(myRange).Copy Destination:=Range(myRange).Cells(1, 1)
'
myFile = myDir & "\" & Range("B2").Value & Range("D2").Value & ".xlsx"
ActiveWorkbook.SaveAs Filename:=myFile, _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:=""
ActiveWorkbook.Close
MsgBox ("Salvato file " & myFile & vbCrLf & "nella directory " & myDir)
End Sub
Sbagli a usare le celle unite; se vuoi sapere cosa ne penso guarda qui: viewtopic.php?f=26&t=85065cosa sbaglio?
Torna a Applicazioni Office Windows
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro protezione foglio con password non funge Autore: xilofono |
Forum: Applicazioni Office Windows Risposte: 13 |
Esiste un riferimento relativo al foglio precedente? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 4 |
EXCEL - Estrazione nome file senza estensione da percorso Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 6 |
Problema stampa due pagine Excel su foglio A4 Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 11 |
Visitano il forum: Nessuno e 17 ospiti