Condividi tramite

Macro Excel per salvare ogni singolo record in un nuovo documento Excel

Anonimo
2019-02-25T13:44:46+00:00

Salve, vi chiedo aiuto ho un documento Excel con 500 righe contenenti anagrafica del cliente. A me servirebbe esportare ogni singolo rigo (cliente) in un nuovo   documento excel. in riassunto devo avere un documento excel per ogni cliente con i dati riportati nelle colonne.

GRAZIE MILLE

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Anonimo
2019-02-25T14:28:52+00:00

Buonasera Byge,

sono un consulente indipendente e sono qui per aiutarti. Hai dimestichezza con le macro? Di seguito ti riporto un esempio di codice che copia la prima riga del foglio excel attivo su una nuova cartella di lavoro (alla riga 1), per poi salvarla.

Va, ovviamente, adeguata al tuo caso.

Cordialmente.

*********

Option Explicit

Sub OpenAndSaveNewBook()

Dim MyBook As Workbook, newBook As Workbook

Dim FileNm As String



Set MyBook = ThisWorkbook



FileNm = ThisWorkbook.Path & "\" & "TEST-BOOK.xls"

Set newBook = Workbooks.Add



With newBook

    MyBook.Sheets("Sheet1").Rows("1:1").Copy .Sheets("Sheet1").Rows("1")



    'Save new wb with XLS extension

    .SaveAs Filename:=FileNm, FileFormat:=xlNormal, CreateBackup:=False



    .Close Savechanges:=False

End With

End Sub

*********

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

2 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2019-02-25T13:59:27+00:00

    la risposta non è molto chiara, devo creare un DB in Access io chiedevo una macro.

    scusami ma non sono molto pratico

    grazie

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2019-02-25T13:46:41+00:00

    Salve,

    Sono Davide, consulente indipendente Microsoft e sono qui ad aiutarti per cercare di risolvere il problema.

    prova a verificare se riesci a risolvere il tuo problema utilizzando le istruzioni riportate nel seguente link:

    https://support.office.com/it-it/article/esport...

    Un saluto,

    Davide

    La risposta è stata utile?

    0 commenti Nessun commento