[VBA EXCEL e ACCESS] Importare in ACCESS valori di fogli EXEL

[GoTeNsSj4]

Ho una serie di file excel tutti uguali, salvati con numeri progressivi tipo file001.xls, file002.xls, ecc... Tutti strutturati secondo un determinato formato (per esempio, la cella A1 contiene il nome, la cella a2 contiene il cognome, ecc...). E' possibile tramite access, per esempio, importare tutti i dati strutturati dei fogli exel in una tabella?!!

Grazie a tutti!

[borgodiavalon]

file--> carica dati esterni--> importa

edit:
scusa avevi detto tramite vda.

DoCmd.TransferSpreadsheet acImport, 8, "nometabella", "percorso tuo file excel completo di estensione", True, ""

[nicola75ss]

Vado a memoria ma mi sembra che sia necessario che la prima riga del file di excel contenga come intestazioni di colonna esattamente i nomi dei campi della tabella di access per poter funzionare.

[borgodiavalon]

Vado a memoria ma mi sembra che sia necessario che la prima riga del file di excel contenga come intestazioni di colonna esattamente i nomi dei campi della tabella di access per poter funzionare.

vero, hai un'ottima memoria.

[GoTeNsSj4]

Se non dovessi avere tutti i dati sulla prima riga invece?! Non posso far nulla?! Magari aprendo il foglio ACCESS da EXCEL e inserendo i valori da EXCEL tramite una macro...

[borgodiavalon]

riorganizzare il foglio di excel in maniera che sia congeniale al trasferimento dei dati mi sembra la soluzione ideale, eventualmente questo lavoro potresti farlo tramite macro di excel. eventualmente per la macro in excel devo passare la palla.

[GoTeNsSj4]

il problema è che riorganizzare un centinaio di fogli exel che contengano perlopiù dati vecchi, mi sembra una cosa inutile in fatto di tempo... Se si poteva fare direttamente era un conto...

[borgodiavalon]

se i fogli di excel sono tutti strutturati nella stessa maniera la macro che useresti sarebbe solo una.

[GoTeNsSj4]

e qualcuno mi sa dire come si fa la macro?!

[borgodiavalon]

Sub RAGGRUPPA_DATI()
Dim MyFoglio As String
MyFoglioperAccess As String

MyFoglioPrincipale = "Foglio1"--->inserisci il nome del foglio in cui hai i dati
MyFoglioperAccess = "Foglio2"--->inserisci il nome del foglio in cui mettera i dati

    Sheets(MyFoglio).Select
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(MyFoglioperAccess).Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets(MyFoglio).Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(MyFoglioperAccess).Select
    Range("B1").Select
    ActiveSheet.Paste
End Sub

questo è solo un esempio.