Thomas - hjælp

ok, skal kigge på det....

Du er bare det bedste :o)

Public Function AflæsfelterIExcel()
    Dim Xl As Object
    Dim rsKunde As New ADODB.Recordset
    Dim rsFiler As New ADODB.Recordset
    Dim cn As ADODB.Connection
   
    Set cn = CurrentProject.Connection
    Set Xl = CreateObject("EXCEL.APPLICATION")
    rsKunde.Open "tblKunderoplysninger", cn, adOpenKeyset, adLockOptimistic
    rsFiler.Open "tblFilnavn", cn, adOpenStatic
    Do Until rsFiler.EOF
        Xl.Workbooks.Open rsFiler!Filnavn, False, True
        rsKunde.AddNew
        Xl.Sheets("Skabelon").Select
        rsKunde!Kundenummer = Xl.Range("A9")
        rsKunde!Kundenavn = Xl.Range("A4")
        rsKunde.Update
        rsFiler.MoveNext
        Xl.Quit
    Loop
End Function

Der må vist være et eller andet i tilføjelsesprogrammer som mangler, men hvad ?

Runtime error

Der er en ugyldig SQL-sætning. ....

hvilken linie?

rsKunde.Open "tblKunderoplysninger", cn, adOpenKeyset, adLockOptimistic

Forget it ... det er mig som ikke kan stave ( nyt tastatur ) den hedder naturligvis ikke tblKunderoplysninger, men tblKundeoplysninger ;o)

Det funker bare ... som vanligt :o)

super :o)

Hvis jeg så lige vil slippe for at bekræfte lukning af hvert regneark !!!

  Xl.Quit ????

hmm, jeg får ikke nogen prompt!

Man kan ikke sætte nogen parameter efter xl.quit.


prøv med xl.ActiveWorkbook.Save

Selvfølgelig virkede det ... tak igen ...

... mer vil have mer :o)

Tabelindhold i Access kan indeholde een af tre værdier, altså et alternativ felt, når jeg når så langt, men i Excel ligger det som navne i tre forskellige celler ( J17,K17,L17) ... get the point ?

Thomas, er du til stede ?

delvist....men jeg er ikke helt med...

Jeg skal forsøge at forklare :

I regnearket er der tre felter J17, K17, L17. Her har brugeren mulighed for at sætte et kryds i eet at de tre felter. I Access vil jeg, -  afhængig af hvor brugeren har sat krydset, have returneret en værdi ( eksempelvis 1 2 eller 3 )

Et andet problem : xl.ActiveWorkbook.Save virker glimrende .... men jeg ender op med alle regnearkene åbne i baggrunden, og det æder hukommelse :o(

Jeg har mere ... skal jeg åbne et nyt spørgsmål ?

Det må jo blive noget med:
Select Case true
    case Xl.Range("j17")
            rsKunde!DitFelt = Xl.Range("j17")
    case Xl.Range("k17")
            rsKunde!DitFelt = Xl.Range("k17")
    case Xl.Range("l17")
            rsKunde!DitFelt = Xl.Range("l17")
End select

mht xl.ActiveWorkbook.Save, så skal den jo efterfølges af Xl.Quit.

Nyt spørgsmål? God ide! Så kan andre også byde ind...

Ok :o)

jeg passer min søn, som er syg idag, så jeg er ikke så meget "på"

Jamen god bedring med ham :o)

Problemet med Xl.Quit var jo netop, at jeg bliver promptet for hver regneark :o(

nåå, jeg troede, at de forsvandt da du brugte save inden.

Do kan prøve med denne:

Sendkeys "{ENTER}", false
xl.quit

Men jeg ved ikke om det virker. Det skyldes vel, at den forsøger at gemme i et nyere format eller lign?

Syntaxen :

    Sendkeys "&{n}", True

Virkede bedre :o)

ok, jeg vidste jo ikke hvilke svarmuligheder du havde og hvad du ønskede at trykke, så jeg foreslog bare ENTER ;o)

Har sønnen fået det bedre ?

jo tak, det begynder at lysne....men er der bare lige 3 (arbejdsdage-)dage hvor vuggestuen er lukket pga påske :o(
Man får sgu aldrig lavet noget....suk