ExcelでVBAレコードセットを1行にエクスポートする

Question

AccessからExcelにレコードセットをエクスポートするためのVBAを作成しようとしています。私は最終的に下のエクスポートプロセスに行きましたが、列AとBにエクスポートし、すべてのデータを行2にエクスポートします。

行にエクスポートする適切なプロトコル/構文2？

Do While Not rsone.EOF 
    columnNum = 1 
    rowNum = rowNum + 1 
    For Each fieldsss In rsone.Fields 
     newExcelApp.Cells(rowNum, columnNum) = fieldsss.Value 
    columnNum = columnNum + 1 
    Next fieldsss 
    rsone.MoveNext 
Loop 

Answer 1

kurtzさんの答えは大丈夫でしたが、列番号のリセットを忘れて、次の各レコードを前のレコードに上書きしました。

使用この：入力中にあなたが眠りに落ちるしているときに何が起こるかだ

columnNum = 1 
Do While Not rsone.EOF 
    For Each fieldsss In rsone.Fields 
     newExcelApp.Cells(2, columnNum).Value = fieldsss 
    columnNum = columnNum + 1 
    Next fieldsss 
    rsone.MoveNext 
Loop