fra access til regneark

Kan du ikke bruge det her?

http://www.eksperten.dk/spm/234231

PS: ovennævnte afvikles fra VBA i Excel - og loopet kunne ændres til

Do While Not rec.EOF
  Activesheet.Cells(15,2).formulaRC =  Activesheet.Cells(15,2).formulaRC _
                                          & rec!Række1
    rec.MoveNext
Loop

Kan ikke lige huske om Activesheet.Cells(15,2).formulaRC indeholder et lighedstegn til at starte med, hvis den gør, kan du fjerne det med Right() funktionen ;o)

Denne kode kører tabel1 igennem og hver post putter den ind i en ny række i kolonne A. Indsæt denne kode i Excel VBA så kører det!

Sub temp()
    Dim i As Integer
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=d:\hula.mdb"
    conn.Open
   
    Set rs = conn.Execute("SELECT * FROM Tabel1")
    i = 1
    While Not rs.EOF
        Range("a" & i).Value = rs("navn")
        rs.MoveNext
        i = i + 1
    Wend
   
    Set rs = Nothing
    Set conn = Nothing
End Sub


VH CK

kedde65
da jeg er ny i dette hvad er range("a" & I).value = rs("Navn)

er det der jeg skal bestemme hvad celle det er eller hvad

Ja det er korrekt, Range objektet er et Objekt til at bestemme hvor du skal skrive/læse henne i dit excel ark!

Der er så en masse forskellige metoder og egenskaber du kan bruge på det Range obejkt. At der står ("A" & i) betyder bare at det er kolonne A og det går fra række 1 til række, hvor mange records der nu er i tabel1!

VH CK

kedde65

det vil så sige at når det kun er en post i min tabeL, Så skal jeg lade det stå som det er,og hvad er det så med RS("navn)..???

Hvis der kun er en post i din tabel. Så kan du erstatte denne del


    i = 1
    While Not rs.EOF
        Range("a" & i).Value = rs("navn")
        rs.MoveNext
        i = i + 1
    Wend

med

range("a1") = rs("navn")

rs("navn") referer til kolonne overskriften på tabellen. Her kunne du ligeså godt referere til kolonne nummer. Dvs du kunne skrive rs(1).

VH CK

jeg lukker dette spørgsmål da jeg lige rydder op