将查询导出excel时,导出的数据中没有第一条记录大家帮帮忙.

lpjdx

我现在要将查询导出excel时，出现一个问题,就是导出的数据中没有第一条记录.

例子:

yedaoan

你是怎么导出的,从你的例子,看不出来,
我用Access菜单中的导出功能和复制 粘贴到Excel都是有第一行,和标题行的

[ 本帖最后由 yedaoan 于 2007-9-17 11:44 编辑 ]

kangking

x = 9


'写入数据到相关的单元格,
               
            TableA.MoveFirst   '移动指针到第一条记录
            
            Do Until TableA.EOF = True
                xlsheet.Cells(x, 1) = TableA.recordcount
                xlsheet.Cells(x, 2) = TableA!个人编号
                xlsheet.Cells(x, 3) = TableA!姓名
                xlsheet.Cells(x, 4) = TableA!性别
                'xlsheet.Cells(x, 5) = TableA!民族
                xlsheet.Cells(x, 6) = Format(TableA!出生日期, "yyyy-mm")
                xlsheet.Cells(x, 7) = TableA.recordcount
                xlsheet.Cells(x, 8) = TableA!家庭住址
                xlsheet.Cells(x, 9) = TableA!学籍号
                xlsheet.Cells(x, 10) = TableA!现在校名称
                xlsheet.Cells(x, 11) = TableA!现在校年级
                xlsheet.Cells(x, 12) = TableA!校外文化程度
                xlsheet.Cells(x, 13) = TableA!离校时就读年级
                'xlsheet.Cells(x, 14) = TableA!
                xlsheet.Cells(x, 15) = TableA!三残类别
                xlsheet.Cells(x, 16) = TableA!其他残疾
                xlsheet.Cells(x, 17) = TableA!是否失能
                xlsheet.Cells(x, 18) = TableA!在外就读地点
            
                TableA.MoveNext
                x = x + 1
        Loop
你上面的代码用下面的一句就可以了.

            xlsheet.Range("A9").CopyFromRecordset TableA

lpjdx

二楼和三楼的朋友们的方法是有点行不通的,因为导出后就没有按电子表格的列来排.\

四楼cuxun朋友可以了,说的对效率有点低,如查数据少就可以了,有没有更好一点的方法.

lpjdx

谢谢上面的朋友给我的建议.

miantiao1

直接建一个宏然后运行不就可以了吗？

Dragxixi

LZ看看这样行不行!

Henry D. Sy

原帖由 miantiao1 于 2007-9-17 15:53 发表
直接建一个宏然后运行不就可以了吗？

2222222222222222

老虾米

新手报到来学习学习！

bcfu

学习学习！