Riempi Modulo da DB e salva un file per Record

[Ross72]

Salve a tutti.

Ho due file excel: Modulo.xlsx e DB.xlsx.
Ho bisogno di popolare il Modulo con i dati del DB e salvare una copia del modulo con nome file uguale alla concatenazione del valore contenuto nella colonna H e nella colonna I ( [H] & " - " & [I] ). L'operazione si deve ripetere per ogni riga del DB fino all'ultimo record.
I nomi dei campi del DB contengono il riferimento delle celle del file Modulo.xlsx

https://we.tl/t-DWT9hLTKAv

Potete aiutarmi?

Grazie
Saluti

[Anthony47]

Prova, da inserire in un modulo standard del progetto vba del file DB:

Codice: Seleziona tutto

Sub HardWork()
Dim dWs As Worksheet, I As Long, J As Long
'
Set dWs = Workbooks("Modulo.xlsx").Sheets("Modulo")
'
For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    For J = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        dWs.Range(Replace(Cells(1, J).Value, "MODULO!", "", , , vbTextCompare)).Value = Cells(I, J)
    Next J
    Workbooks("Modulo.xlsx").SaveCopyAs (Cells(I, "H") & "-" & Cells(I, "I") & ".xlsx")
Next I
End Sub


Ciao

[Ross72]

Funziona alla GRANDE!!!

Grazie mille

[Ross72]

...perdonatemi
se volessi che la copia dei file sia salvata in un percorso specifico, cosa devo aggiungere al codice?

[Anthony47]

..se volessi che la copia dei file sia salvata in un percorso specifico.. ?

Devi allora aggiungere il percorso al nome file, tipo:

Codice: Seleziona tutto

    Workbooks("Modulo.xlsx").SaveCopyAs ("C:\MioPercorso\" & Cells(I, "H") & "-" & Cells(I, "I") & ".xlsx")

Ciao