Risultati da 1 a 10 di 10

Discussione: esportare singole colonne in nuovo file excel



  1. #1
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7

    esportare singole colonne in nuovo file excel

    Buongiorno,

    Ho un foglio Excel nominato Archivio, volevo che tramite pulsante "Salva in xlsx" mi salvava il singolo foglio in un file excel, inserendoci dentro solo alcune colonne di dati ed evitando altre. Queste colonne non sono tutte adiacenti, ci sono degli intervalli. Allego un file di esempio. Ringraziandovi per l'attenzione.

    Ho contrassegnato le colonne da esportare con sfondo grigio e bordo marcato.
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7147
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300
    Ciao Lety,
    nel file vedo tante colonne (da Intestazione1 a Intestazione34) ma quale vuoi esattamente che siano esportate?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    Quelle con sfondo grigio e contrassegnate da un bordo più marcato. Esattamente sono la A-B-C-D-E-K-R-AA-AB-AC-AD-AF-AG-AH .Nel nuovo file le vorrei tutte adiacenti.

    Ti ringrazio per l'attenzione.

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    puoi usare il comando
    Codice: 
    
    Columns("F:J").EntireColumn.Delete
    ripetere per tutte le colonne da cancellare

    poi usare

    Codice: 
        ActiveWorkbook.SaveAs _
        Filename:=Format(Date, "ddmmyyhhmm") & "mioFile"
    per salvare

  5. #5
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    Ciao Rubik72, hmmm non desidero cancellare le colonne, ma nell'esportazione o salvataggio in xlsx del singolo foglio,vorrei fossero inserite determinate colonne con i rispettivi valori.

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Scusa, cosa intendi per

    Citazione Originariamente Scritto da Lety88 Visualizza Messaggio
    [...]vorrei fossero inserite determinate colonne con i rispettivi valori.
    così non va bene?
    Codice: 
    Sub Estrai()Columns("AE").EntireColumn.Delete
    Columns("S:Z").EntireColumn.Delete
    Columns("L:Q").EntireColumn.Delete
    Columns("F:J").EntireColumn.Delete
    
    
     ActiveWorkbook.SaveAs _
        Filename:=Format(Date, "ddmmyyhhmm") & "mioFile"
    End Sub

  7. #7
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    :216: Perdonami Rubik72 funziona, sono io incapace ancora con il vba, ti chiedo scusa per la mia ignoranza in materia.

    Desideravo solo se fosse possibile salvare il singolo foglio Archivio, salvandolo nel formato Excel senza macro, se non sbaglio l'estensione è xlsx, eliminando anche il pulsante.

    Allego il file.
    File Allegati File Allegati

  8. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Prova così:
    Codice: 
    Sub Estrai()
    Columns("AE").EntireColumn.Delete
    Columns("S:Z").EntireColumn.Delete
    Columns("L:Q").EntireColumn.Delete
    Columns("F:J").EntireColumn.Delete
    ActiveSheet.Shapes("Button 1").Delete
    ActiveWorkbook.SaveAs _
        Filename:=Format(Date, "ddmmyyhhmm") & "mioFile", FileFormat:=xlOpenXMLWorkbook
        MsgBox ("File Salvato con successo")
    End Sub

  9. #9
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7
    Se vuoi provare
    Codice: 
    Sub Salva1()
    Dim Dove As String, Nome As String
    Dove = ThisWorkbook.Path & "\"
    Nome = InputBox("Digita un nome da dare al file, senza . ed estensione.", "Verrà salvato nella stessa cartella", "")
    If Nome = "" Then Exit Sub
    Nome = Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & Nome & ".Xlsx"
    Sheets("Archivio").Cells.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveSheet.Shapes("Button 1").Delete
    Columns("AE:AH").Delete
    Columns("S:Z").Delete
    Columns("L:Q").Delete
    Columns("F:J").Delete
    ActiveWorkbook.SaveAs Filename:=Dove & Nome, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    End Sub

  10. #10
    L'avatar di Lety88
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Brindisi
    Età
    29
    Messaggi
    131
    Versione Office
    Office 2013
    Likes ricevuti
    0
    Likes dati
    7
    Vi ringrazio Rubik72 e Raffaele_53 per i vostri preziosi consigli, ho implementato il tutto è funziona correttamente.

Discussioni Simili

  1. esportare colonne in file xlsm
    Di alex_drastic nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 10/03/17, 22:43
  2. [Risolto] Esportare colonne in formato testo CSV
    Di mrgiaco nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 01/02/17, 10:30
  3. userform per creare nuovo file excel
    Di sairaki87 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 24/01/17, 20:04
  4. [Risolto] Creare un nuovo file per ogni colonna presente in un file excel
    Di gianluca26 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 10/11/16, 18:50
  5. personalizza file default di excel (nuovo file)
    Di aldomattana nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 05/06/16, 00:48

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •