自定义SQL导出EXCEL的问题

gaoyunpeng　发表于：2017-07-01 10:23:19 　

复制

写了一个导出的过程，不过有两个地方不会写了，求教高手指点：

1、

是通过EXCEL打开的方式来导出的，

其中RST记录集是通过SQL语句来实现的。

但是导出时，只能导出记录，并不能导出字段名称，除了把已知的字段逐一写到EXCEL里，还有其他办法吗，我是想以调用的方法来实现，不可能每次都使用相同的字段名。

2、

导出结果后发现【createdate】【date1】以数值形式出现的。这个能不能以标准的日期形式出现呢？

SQL查询命令会有很多样记录的，希望可以通过【调用这个过程】来实现多样的记录形式导出效果。

比如说：

strSQL = Select * From Person 导出的结果就是所有记录

Select groupid,name From Person 导出的结果就是groupid,name 两列结果

每次只要修改SQL命令就可以了。

传个附件，大家帮忙改一改，先谢谢了。

点击下载此附件

Top

杨雪发表于：2017-07-01 13:34:02

范例代码：

'将Access的数据导入Excel表格
Private Sub cmd_导出_Click()
    Dim xlPath As String
    '设置导出Excel工作簿的每次
    xlPath = CurrentProject.Path & "\示例工作簿" & Int(Rnd * 1000) & ".xlsx"
    '将“Q_员工工资核算”查询中的数据导出到Excel中
    DoCmd.TransferSpreadsheet acExport, , "Q_员工工资核算", xlPath, True
End Sub

Top

gaoyunpeng 发表于：2017-07-01 18:56:51

有没有大神帮忙改改附件的代码啊。万分感谢。

Top

chinasa 发表于：2017-07-02 16:12:26

ACCESS版本不够高，附件打不开。

是否可以变通的方式解决呢，比如：生成临时表或查询，然后导出表或查询。

Top

gaoyunpeng 发表于：2017-07-04 11:17:40

还是使用2楼的办法吧。变通一下吧。

研究TransferSpreedData能否加载SQL语句吧。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

自定义SQL导出EXCEL的问题