也问一个关于access到excel的问题

chiquititia

我在access中建立了一个查询，现在想把查询的结果输出到一个已经存在的excel表中的指定单元格里面去，应该怎么编写代码呢？
    如查询结果有10条纪录，现在我想把这10条纪录按顺序填充到表abc.xls中的a1到a10的单元格里。
    还请各位高手不吝赐教！！

nxjswt

DoCmd.TransferSpreadsheet acExport, 8, "11", "d:\11.xls", False, "A1:A10"

11是表名,你可以建立个生成表查询,将你的查询结果生成个新表,例如叫11

rym9401

我也想知道，能实现吗？

majian77

TransferSpreadsheet 方法
              

在 Visual Basic 中，TransferSpreadsheet 方法执行 TransferSpreadsheet 操作。有关该操作及其参数如何使用的详细内容，请参阅该操作主题。

语法

DoCmd.TransferSpreadsheet [transfertype][, spreadsheettype], tablename, filename[, hasfieldnames][, range]

TransferSpreadsheet 方法具有以下参数：

参数 说明
transfertype 下列固有常量之一：
  acImport（默认值）
acExport
acLink
  如果该参数空缺，将假设为默认常量 (acImport)。
spreadsheettype 下列固有常量或与之相等的数值设置之一：
  0 acSpreadsheetTypeExcel3（默认值）
6 acSpreadsheetTypeExcel4
5 acSpreadsheetTypeExcel5
5 acSpreadsheetTypeExcel7
8 acSpreadsheetTypeExcel8
8 acSpreadsheetTypeExcel9
2 acSpreadsheetTypeLotusWK1
3 acSpreadsheetTypeLotusWK3
7 acSpreadsheetTypeLotusWK4
4 acSpreadsheetTypeLotusWJ2 — 仅日文版
  注意   可以链接 Lotus 1-2-3 电子表格文件中的数据，但是这些数据在 Microsoft Access 中是只读的。也可以导入和链接 Lotus .WK4 文件，但是不能将 Microsoft Access 的数据导出为这种电子表格格式。使用该方法，Microsoft Access 也不支持从 Lotus .WKS 或 Microsoft Excel 2.0 版电子表格导入、导出或链接数据。
  如果该参数空缺，将假设为默认常量 (acSpreadsheetTypeExcel8)。
tablename 字符串表达式，代表要向其中导入电子表格数据、从中导出电子表格数据或链接电子表格数据的 Microsoft Access 表的名称，或要将其结果导出到电子表格的 Microsoft Access 选择查询的名称。
filename 字符串表达式，包含要从其中导入、导出到或链接到的电子表格的名称与路径。
hasfieldnames 如果该参数为 True (-1)，在导入或链接时，使用电子表格中的第一行作为字段名。如果该参数为 False (0)，则将电子表格中的第一行处理成普通数据。如果该参数空缺，将假设为默认值 (False)。
  当向电子表格中导出 Microsoft Access 表或选择查询数据时，不论在此参数中输入什么，字段名都将被插入到电子表格的第一行中。
range 字符串表达式，代表电子表格中的单元格范围或范围的名称。该参数只能用于导入。当其空缺时将导入完整的电子表格。
  当将数据导出到电子表格中，必须让该参数空缺。如果输入了一个范围，导出将失败。


说明

语法中的可选参数可以空缺，但是必须包含参数的逗号。如果位于末端的参数空缺，在指定的最后一个参数后面不需使用逗号。

注意   通过使用 Recordset 对象的 ActiveConnection

我要飞

使用宏设计器的“TransferSpreadSheet”的导出，“范围”建议写：
= format(date(),"yyyymmdd") & "-" & format(time(now()),"hhmmss")
这样会将你每一次查询的结果记录到以日期＋时间命名的Sheet中。