李大斑竹：关注一下我的问题，关于查询结果输出到excel表的问题！

Question

将第二次查询的结果怎么添加到第一次查询所建表的后面（数据格式相同），我用的是你所编的哪个函数。
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************

Answer 1

这是从A1单元格插入数据
Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))
这是从A100单元格插入数据
Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a100"))

Answer 2

这个函数用完后，能不能释放干净，我自己编了一个，但是只要不退出程序，就有一个excel的进程挂在机器里！

Answer 3

你可以在函数中多加一个参数变成exportoexcel(sql查询字符串1，sql查询字符串2）

Answer 4

那我怎么计算第一次筛选结果在excel中共占多少行呢？

Answer 5

Rs.recordcount 你的记录数多少行就应该在excel中占多少行

Answer 6

但是我第一次记录已经关闭啦，我想从excel表格中直接读取行数啊，然后接着在新行添加第二次筛选的结果，有没有append之类的语句啊？