Condividi:        

CREARE NUOVO FILE E SALVARLO CON NOME

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

CREARE NUOVO FILE E SALVARLO CON NOME

Postdi scanacc » 04/11/20 13:06

Carissimi, come indicato in oggetto o registrato una Macro che mi copia parte del file excel e lo salva in una cartella.
All'inizio sembrava funzionasse ora ma occorre perfezionarlo in quanto ci sono 2 errori che mi sembra di aver individuato.
Intanto metto la macro creata
Codice: Seleziona tutto
Sub STAMPO_FILE_EXCEL()
'
' STAMPO_FILE_EXCEL Macro
'

'
    Range("AS1:CI211").Select
    Range("CI1").Activate
    Workbooks.Add
    Windows("Analisi 4.2n.xlsm").Activate
    Windows("Cartel1").Activate
    Windows("Analisi 4.2n.xlsm").Activate
    Selection.Copy
    Windows("Cartel1").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Analisi 4.2n.xlsm").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Cartel1").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1:AQ1").Select
    Selection.ColumnWidth = 1.2
    Range("A1").Select
    Windows("Analisi 4.2n.xlsm").Activate
    ActiveSheet.Shapes.Range(Array("Picture 55")).Select
    Selection.Copy
    Windows("Cartel1").Activate
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 10.5
    Selection.ShapeRange.IncrementTop 75.5
    Windows("Analisi 4.2n.xlsm").Activate
    ActiveSheet.Shapes.Range(Array("Group 56")).Select
    Selection.Copy
    Windows("Cartel1").Activate
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 5
    Selection.ShapeRange.IncrementTop -58
    Range("R13").Select
    ActiveWorkbook.SaveAs Filename:= _
        "C:\PERCORSO\PERCORSO1\PERCORSO2\NOME FILE.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Range("AV14:BP14").Select
End Sub

La prima problematica riguarda la "Cartel1".
Difatti, quando salva il 1° file funziona tutto bene, ma nell'elaborazione della macro dovrebbe essere indicato "Cartel2" etc etc
La seconda problematica è il nome da dare al FILE che vorrei fosse preso dalla cartella di origine nella cella D14

Mi date un aiutino?
Grazie
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: CREARE NUOVO FILE E SALVARLO CON NOME

Postdi scanacc » 04/11/20 14:38

La seconda problematica l'ho risolta così:
Codice: Seleziona tutto
    ActiveWorkbook.SaveAs Filename:= _
        "C:\PERCORSO\PERCORSO1\PERCORSO2\" & Range("D14").Value, FileFormat _
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: CREARE NUOVO FILE E SALVARLO CON NOME

Postdi scanacc » 04/11/20 16:32

Sto usando un altra MACRO secondo me migliore
Codice: Seleziona tutto
Sub Macro1()
    Dim MyDir As String, NomeFile As String
    Dim FileExist As Boolean
    Application.ScreenUpdating = False

    MyDir = "C:\PERCORSO\a ANALISI SVOLTE\"
    NomeFile = Range("D14").Value

    If Dir(MyDir & "" & NomeFile) <> "" Then
        Select Case MsgBox("Attenzione: esiste già un file con questo nome." _
                           & vbCrLf & "Vuoi sovrascrivere il file?" _
                           , vbYesNo Or vbExclamation Or vbDefaultButton1, "Duplicato")
        Case vbNo
            Exit Sub
        End Select
    End If
 
   Application.DisplayAlerts = False
 
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs Filename:=MyDir & "" & NomeFile
        .Close savechanges:=False
   End With

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True '

    MsgBox "Foglio .xls creato con successo"
End Sub

L'unica cosa che mi crea il foglio excel con le formule e io invece vorrei che ci fossero i numeri assoluti.
Dato che penso che porterò avanti questa formula, sarei lieto poter avere suggerimenti più su questa che sulla prima che ho inserito sopra
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: CREARE NUOVO FILE E SALVARLO CON NOME

Postdi scanacc » 05/11/20 12:04

Mi sembra di aver risolto così:
Codice: Seleziona tutto
    Workbooks.Open Filename:="C:\PERCORSO\" & Range("D14").Value
    Selection.Copy
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("D2").Select
    ActiveWorkbook.Save
    ActiveWindow.Close

L'ho aggiunto alla fine
Stranamente alcune celle me le formatta come gli pare ma ora sistemo anche quelle.
Ovviamente se ci sono suggerimenti in merito sono i benvenuti
Grazie
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: CREARE NUOVO FILE E SALVARLO CON NOME

Postdi scanacc » 05/11/20 12:43

e invece sto sbattendo la testa proprio nel dare una formattazione per me ottimale
Quando la macro incolla alcune celle nel nuovo foglio, nel caso in cui debba importare un valore negativo, il numero viene messo tra parentesi
€ (12.300,00)
Io invece ho necessità di far comparire
-€ 12.300,00 (come del resto compare nel foglio da cui viene copiato)
Ho provato a dargli una ulteriore Formattazione del tipo
Codice: Seleziona tutto
    Range("X87:AE87").Select
    Range("AG65:AN74,X87:AN101").Select
    Range("X87").Activate
    Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

ma non accade niente.
Mannaggia :evil: :evil: :evil:
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: CREARE NUOVO FILE E SALVARLO CON NOME

Postdi scanacc » 05/11/20 14:03

Mi sembra che questa sia la risposta che cercavo
Codice: Seleziona tutto
 Range("AG65:AN74,X87:AN101").Select
 = "_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-"
scanacc
Utente Senior
 
Post: 350
Iscritto il: 06/12/15 10:30

Re: CREARE NUOVO FILE E SALVARLO CON NOME

Postdi Anthony47 » 05/11/20 21:01

Bravo, hai fatto tutto da solo.

Per le opzioni del formato "personalizzato" vedi https://support.microsoft.com/it-it/off ... f18b4eae68

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "CREARE NUOVO FILE E SALVARLO CON NOME":


Chi c’è in linea

Visitano il forum: Nessuno e 42 ospiti