Risultati da 1 a 5 di 5

Discussione: Importare dati e formattazione



  1. #1
    L'avatar di Troul41
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Roma
    Età
    31
    Messaggi
    3
    Versione Office
    excel 2007
    Likes ricevuti
    0
    Likes dati
    0

    Question Importare dati e formattazione

    Ciao a tutti

    Ho 4 file dove altri utenti inseriscono dei dati, li vorrei importare tutti in un nuovo file con 4 fogli differenti (uno per ogni file di input).
    L'idea è importare dato e formattazione con, forse, una macro.

    E' una cosa fattibile?

    Grazie a tutti

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Importare dati e formattazione

    Ciao,
    quello che chiedi può essere fatto con una macro, dovresti però allegare un esempio di uno dei 4 files da importare (anche con nomi di fantasia e pochi dati) per capire la stuttura del foglio
    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 Troul41
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Roma
    Età
    31
    Messaggi
    3
    Versione Office
    excel 2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Importare dati e formattazione

    Ecco a voi il file di esempio. Incrociamo le dita
    File Allegati File Allegati

  4. #4
    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

    Re: Importare dati e formattazione

    Ammettiamo che tutti i file siano nella stessa cartella.
    Apri un file nuovo, premi ALT + F11 si apre l'editor.
    In alto, premi il tasto Inserisci e scegli Modulo, Incolla il codice sotto sulla destra. Chiudi e Salva nella stessa cartella degli altri file dandogli nome e scegliendo (cartella di lavoro con abilitazione macro) = NOME.XLSM
    Riapri il file, inserisci alcuni fogli (1 in più dei tuoi file) , premi sviluppo ed inserisci nel foglio1 il primo pulsante, disegna un rettangolo ed abbinalo a COPIA. Finito salva il tutto e premi il bottone.
    Ps dato che sono presenti formule con riferimenti in riga16 (ho messo una spiegzione per copiare solo i valori delle celle).
    Codice: 
    Option Explicit
    Sub copia()
        Dim Wk As Workbook: Set Wk = ThisWorkbook
        Dim Percorso As String, NomeFile As String, Nome As String, Ur As Long, N
        Application.ScreenUpdating = False
        Percorso = ThisWorkbook.Path & "\"
        NomeFile = Dir(Percorso & "*.xlsx")
        N = 2
        Do While NomeFile <> ""
            If NomeFile <> ThisWorkbook.Name Then
                Application.DisplayAlerts = False
                Workbooks.Open (Percorso & "\" & NomeFile)
                Ur = Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
                Workbooks(NomeFile).Worksheets(1).Range("A1:AA" & Ur).Copy
                Wk.Sheets(N).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                ' Se non funziona metti alla riga sopra un ' davanti ed togli alle due righe sotto il '
                'Wk.Sheets(N).Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                'Wk.Sheets(N).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                Nome = Mid(NomeFile, 1, InStr(NomeFile, ".") - 1) ' solo per file con nomi semplici
                Wk.Sheets(N).Name = Nome ' solo per file con nomi semplici
                Workbooks(NomeFile).Close False
                Application.DisplayAlerts = True
                N = N + 1
            End If
            NomeFile = Dir
        Loop
        Application.ScreenUpdating = True
        MsgBox "Fatto"
        Set Wk = Nothing
    End Sub

  5. #5
    L'avatar di Troul41
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Roma
    Età
    31
    Messaggi
    3
    Versione Office
    excel 2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Importare dati e formattazione

    Ciao, non sono sparito.
    Sono stato via il weekend e non ho potuto leggere prima. Ci potrò lavorare in settimana. In ogni caso vi faccio sapere come finisce.
    Intanto grazie
    A presto

Discussioni Simili

  1. Importare dati da AD HOC REVOLUTION
    Di CEPE77 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 24/01/17, 18:23
  2. Importare dati da PDF con VBA Excel
    Di luky4 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 10/11/16, 13:11
  3. Importare dati da pagina web
    Di AlbertoDi nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 23/10/16, 19:49
  4. [Risolto] Importare i dati di un Report
    Di ProgrammD69 nel forum Domande su Microsoft Access
    Risposte: 3
    Ultimo Messaggio: 02/09/16, 10:24
  5. Importare dati da file HTML scaricata nel pc, formattazione errata
    Di Fabio1972 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 28/09/15, 11:03

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
  •