Condividi:        

Riempi Modulo da DB e salva un file per Record

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

Riempi Modulo da DB e salva un file per Record

Postdi Ross72 » 05/12/20 19:10

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
Ross72
Utente Junior
 
Post: 17
Iscritto il: 03/03/16 11:36

Sponsor
 

Re: Riempi Modulo da DB e salva un file per Record

Postdi Anthony47 » 06/12/20 01:47

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Riempi Modulo da DB e salva un file per Record

Postdi Ross72 » 07/12/20 10:14

Funziona alla GRANDE!!!

Grazie mille
Ross72
Utente Junior
 
Post: 17
Iscritto il: 03/03/16 11:36

Re: Riempi Modulo da DB e salva un file per Record

Postdi Ross72 » 07/12/20 17:56

...perdonatemi
se volessi che la copia dei file sia salvata in un percorso specifico, cosa devo aggiungere al codice?
Ross72
Utente Junior
 
Post: 17
Iscritto il: 03/03/16 11:36

Re: Riempi Modulo da DB e salva un file per Record

Postdi Anthony47 » 07/12/20 20:02

..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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Riempi Modulo da DB e salva un file per Record":


Chi c’è in linea

Visitano il forum: raimea e 72 ospiti