overfører to kolonner til excel

Loop over alle posterne i dit recordsæt, og sæt ind i excel-arket en for en i din løkke...

Mht. at få forbindelse til og skrive til excel, så kik f.eks. på

  eksperten.dk/spm/169104

Du kan så loope over cellerne ved at skrive

  work.Worksheets("ark1").Cells(i, 1).Value 'hvor i er en tæller

Altså:

    With rsDitRecordset
      Do While Not .EOF
        work.Worksheets("ark1").Cells(i, 1).Value = !Emne
        .MoveNext
        i = i+1
      Loop
    End With

Haloo?

Undskyld du, jeg har haft så sindssygt travlt på arbejdet, så jeg har ik lige haft mulighed for at komme her forbi.

Jeg tester det med det samme og kommer med en tilbagemelding.

Jeg har kigget lidt på det, og jeg får bare en "subscript out of range" fejl.
Hvis jeg debugger, fremhæver den denne linie: work.Worksheets("ark1").Cells(i, 1).Value = "test"

Her er al den kode jeg har skrevet indtil videre:

Dim ex As Excel.Application
    Set ex = New Excel.Application
    ex.Visible = True
    Dim work As Excel.Workbook
    Set work = ex.Workbooks.Open("c:\it-support\temp.xls")

With rs
      Do While Not .EOF
        work.Worksheets("ark1").Cells(i, 1).Value = "test"
        .MoveNext
        i = i + 1
      Loop
    End With


Set work = Nothing
Set ex = Nothing

Jeg har rodet med det og nu undgår jeg den tidligere fejl.

Jeg bør måske lige specificere hvordan min lille program virker:
Man indtaster en dato, og derefter køres en sql, sådan at der kun hentes data fra den ønskede dato.

Når jeg så forsøger at skrive det over til excel, skrives der ingenting for stort set alle datoer, undtaget i går (20/7). Hvis jeg vælger den dato, får jeg en "Run-time error 1004" "Application-defined or object-defined error"

Det skal lige siges at den db jeg henter fra ligger på en server, som jeg connecter til via. informix.

fejlem med out of range får du fordi 'i' til at starte med har værdien nul. Du skal starte med at sætte den lig 1 før du starter løkken.

Du må være mere specifik mht. det andet. Får du overført alle data til dit recordset, og er problemet blot at få det skrevet til excel? Eller er problemet at få det hentet over i recordsættet? Eller ...?

Hej Martin,
Jeg går på ferie nu, og får ikke testet det inden.
Så der går nok lige noget tid inden du får et ordentligt svar tilbage.
Håber det er iorden
Zkov

Jeg havde lige lidt tid alligevel.....

Hvordan får jeg nu brugernavnet over i excelarket?

Der hvor der står test

work.Worksheets("ark1").Cells(i, 1).Value = "test"

skal jeg jo have informationen fra sql-sætningen.

jeg har prøvet
work.Sheets(1).Cells(i, 1).Value = rs(us)

men det virker ikke (havde heller ikke regnet med det, men blev nød til at prøve)

Help?

Nå...nu virker det, så du får bare dine points :)