Overførelse af data fra excel til access - Haste opgave

Det nemmeste i første omgang er, at du laver en makro. Du skal bruge handlingen "OverførRegneark". Udfyld handlingsargumenterne og så går det nemt.

Mugs problemet er at det er et skema - Dataerne er ikke listet i Excel, så jeg har nogle problmer med at overføre dem til min access database

Kan du sende regnearket:

mugs@mail.dk

har du modtaget eller

Nej intet er modtaget

sådan

Udkast til Db er returneret

den spøger efter import tabellen

MINE DATABASER SPØGER ALDRIG!!!

Nå, det skal den gøre, da jeg har lavet en fejl. Se min senere mail. Du skal blot oprette en tabel der hedder Import. Blot med et enkelt felt. Det er fordi jeg har sat den til at slette tabellen inden den igen importerer, så du ikke får dobbelte data.

mug den importe kun et felt - felt 1

Det var ikke helt min hnsigt den skulle jo importere feltnavnene

Her importerer den alle 97 rækker.

hmm det var mærkelig

Det er da den der hedder prøve du importere

DEt enste der kommer til at stå i min tabel er f1

Når du importerer overføres kolonnenavnene fra Excel's øverste række. Hvis du sætter markøren i en celle vil de se, at cellens navn er f.eks. A1, C34 o.s.v.
Det du mener er nok, at du vil have cellens trekst overført til Access. Det kan du ikke idet det ikke er data. Du er nødt til i Access at lave en tilføjelsesforespørgsel, ser sender data til en anden tabel, hvor du har defineret de korrekte feltnavne.

Humlen i det hele er jo, at du har lavet dit skema inden det videre er tænkt over, hvordan data senere skal behandles.

Gvis jeg var dig ville jeg lave en ganske simpelt Excel-skema uden nogen smarte skemaer, og lade brugerne indtaste i en formular, der kan laves på 2 sek.

Jeg omporterer prøve. Er det ikke den du vil have i Access.

jo det er så - men den importere igen kun F1

Har sendt filen igen. Importerer ALT fra Excel.

Mugs jeg kan godt se hvad din pointe er - Men jeg mente mere at det skulle laves sådan at feltoverskrifterne kommer med over - JEg ved at det kan laves med en kode i retning af Datasti = "C:\Documents and Settings\smallsystems\Skrivebord\VITUS CRM\Prologic\TimeReg.mdb"
  ' Lav en forbindelse til Access databasen
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=" & Datasti & ";"
    ' Åben et recordset
    Set rs = New ADODB.Recordset
    rs.Open "timeregistrering", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    ' alle records i en tabel
   
        With rs
           
            .AddNew ' tilføj ny record

           
            ' tilføj værdier til hvert felt i recorden
            .Fields("Medarbejderid") = Range("E7").Value
            .Fields("Projektid") = Range("C5").Value
            .Fields("Dato") = Range("J4").Value
            .Fields("Salg") = Range("G72").Value
            .Fields("Kunde") = Range("E4").Value
            ' tilpas til aktuel tabel
            .Update ' gem den nye record

MEn mugs jeg vil gerne give dig nogle af pointene som tak for hjælpen

Nej point er ligegyldige. Jeg ser, at du har oprettet et spørgsmål i Excel med samme problemstilling. Helt OK.

Du afviser blot mit svar og accepterer dit eget.