[EXCEL e VBA] Aggiungere valori da EXCEL in un database ACCESS

[GoTeNsSj4]

Ciao a tutti!
E' possibile fare in modo che da excel venga aperto un database access e poi venga aggiunto su un'apposita tabella di access un record pescando determinati valori dal foglio excel?!
In poche parole, vorrei aggiungere un record sul database access DA EXCEL...

Grazie a tutti per l'aiuto!

Ciaoooo!

[borgodiavalon]

per aprire il database da excel potresti inserire un collegamento ipertestuale.

nel database dovresti inserire una maschera con un pulsante con inserito questo codice:

Dim MyCodice As String 'io ho messo string, devi vedere tu se va bene
DoCmd.TransferSpreadsheet acImport, 8, "nometabella ", "percorso tuo file excel completo di estensione ", True, "" 'importa il foglio di excel come tabella access
MyCodice = InputBox("inserisci codice excel", "richiesta dati") 'richiede il record da accodare alla tua tabella specifica in access
DoCmd.runsql "query di accodamento con criterio definito dall'inputbox"
DoCmd.DeleteObject acTable, " nome tabella importata " 'cancella la tabella importata

le parti in grassetto sono quelle che devi inserire tu
la query di accodamento la devi creare sulla tabella importata e inserire come criterio di selezione la variabile.

l'inputbox serve a selezionare il record di excel da importare, l'alternativa è aprire il database manualmente ed impostare a mano i criteri di volta in volta

se vuoi invece di importare il foglio di excel lo puoi collegare
dovrebbe funzionare

[GoTeNsSj4]

ho trovato qualcosina girando per la rete, vi posto il codice

Dim strDBName As String

Set appAccess = CreateObject("Access.Application")
strDBName = "C:\My Documents\pcalc.mdb" 'DATABASE PATH AND NAME

appAccess.OpenCurrentDatabase strDBName

appAccess.DoCmd.OpenQuery "Query Name"

'ecc ecc ecc.............

Quali istruzioni utilizzo per inserire un record (con dei valori presi da celle di EXCEL) in una determinata tabella?!

[borgodiavalon]

se funziona così apri access da excel (io l'ho provata ma non mi funzia).

in access segui la procedura che ti ho postato prima.
per aprire la maschera col pulsante modifica inserisci al posto di
appAccess.DoCmd.OpenQuery "Query Name" il comando appAccess.DoCmd.OpenForm "nome maschera"