Overførsel af data fra Excel til en Access database

Skal den gøre dette i dit program, for hvis det er du bare skal gøre det fordi du skal uploade ændringer kan jeg fortælle dig hvordan du gør det inde i selve Access

Det er noget der skal gøres fra et program.

Eksemplet oven for er bare for at ha noget grundliggende kode at arbejde videre på.

''her "opretter" du dine "værdier"

Dim strConn, strSQL As String
Dim objConn As OleDbConnection
Dim objComm As OleDbCommand
Dim objRs As OleDbDataReader

''her henter du fra db
strSQL = "Select * FROM test;"

''her åbner du db
ObjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("kunde-db.MDB") & ";")
ObjComm = New OleDbCommand(strSQL, objConn)
ObjConn.Open()

ObjRs = objComm.ExecuteReader()

While ObjRs.Read()
''her fylder du din label med værdi fra en kolonne
Dinlabel.text = ObjRS("Kolonnenavn")
End While

''her lukker du db
ObjRs.Close()
objConn.Close()

Husk filen skal gemme i samme mappe som din db ligger ellers skal du ændre din stil men skriv aldrig C:/ for så virker den ikke når du ligger det op på nettet

det er forresten kodet i ASP.NET og VB 1.1

Det skal ikke køre på nettet, det er noget der skal køres lokalt på en maskine.
Grunden til at det skal ind i en database er at det bliver nemmere at søge på.

Min ide går på at der laves en skabelon i Excel, som så udfyldes x antal gange.
Ved hjælp af en knap overføres dataen fra Excel til min Access database.

det kan så senere være at der kommer en web del på databasen, men det er jo nemt nok at lave

Er det OK hvis det er VBA, der anvendes til at overføre data fra Excel til DB?

I givet fald, hvordan skal de data i Excel lokaliseres,som skal overføres til DB-tabellen?

Sådan her:

var1 = Sheets("Ark1").Range("a1")
var2 = Sheets("Ark1").Range("a2")
var3 = Sheets("Ark1").Range("a3")

Det skal laves så det kan køre i den vb editor i Excel

Et forslag:

Rem Reference til Microsoft DAO 3.6 skal sættes [Tools/References]
Rem ==============================================================
Dim db, tabel
Sub opdater()                'når knap i Excel aktiveres
    åbnDatabase
    findExcelData
   
    tabel.Close
    db.Close
End Sub
Private Sub åbnDatabase()
    Set db = OpenDatabase("d:\eksperten\Excel-Access\kunde-db.mdb")
    Set tabel = db.OpenRecordset("test")
End Sub
Private Sub findExcelData()  'A1-A2-A3
        opdaterDB
End Sub
Private Sub opdaterDB()
    With tabel
        .AddNew
        .Fields(1) = Cells(1, 1)
        .Fields(2) = Cells(2, 1)
        .Fields(3) = Cells(3, 1)
        .Update
    End With
End Sub

Koden skal lægges i Excel VBA-Ark1 - opret knap der tildeles makroen Opdater