[讨论] 如何把用户选择的记录导出

andymark

用 DoCmd.TransferSpreadsheet　可以导出表可查询的

andymark

我通过查询来导出的,  因为导出的格式基本一样,所以主要设置好查询的字段就基本满足查询的数据的要求
Dim StrExcelName As String
         Dim StrFilename As String
         StrFilename = Me.TxtCcode & "总表.xls"
         StrExcelName = CurrentProject.Path & "\ExcelFile\" & StrFilename
         If Dir(StrExcelName) <> "" Then
            Kill StrExcelName
         End If
         DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "汇总报表", StrExcelName, True

andymark

汇总报表 为查询名

andymark

能否做个简单的例子上来测试

andymark

如果要输出字段名称,  X须从1开始