Question

在ACCESS中,使用VBA导出表成excel文件时,如何保留格式和布局

代码如下:DoCmd.TransferSpreadsheet acExport, 8, "测试" & Text0 & "", "D:\MAPINFO\TAB\测试.xls", False, ""
我自己已解决,提供答案给需要的朋友.上面的代码无法实现,只有下面的才能实现,因为那个是另存,这个是导出.
DoCmd.OutputTo acOutputTable, "rfcon", acFormatXLS, "D:\MAPINFO\TAB\RFcon.xls", False

Answer 1

很不幸地告诉你（坚强点，别太伤心），Excel本身没有导出成mdb的能力，Excel中根本就没包含这类的VBA语句，和你思路不一样的是，我们在处理这类问题时的一般办法是：

1、用access建立一个名为“Sheet.mdb”的数据库，里面只有一个GENERALDATA的空表 （这个只需要做一次，以后就再不需要做了）

2、在Excel中通过VBA程序的ADO方式连接到 Sheet.mdb，根据Excel表自身的数据，通过SQL修改Shet.mdb里面的GENERALDATA表结构，然后再把数据更新进去，然后关闭sheet.mdb

3、通过Excel的Shell方式（也有其他方式）来复制sheet.mdb为与工作表名相同的文件（后缀仍为mdb)

由于这个操作可能要对不同的工作薄和工作表进行，所以这个VBA我们用加载宏的方式来开发它。

好了，写这个东西工作量可不小，所以我就不具体给你写了，但愿所提供的思路能对你有启发。

Answer 2

有没有试过事先建立一个excel模板，将数据导出到模板中呢？或者在你的程序后面增加对导出文件格式和布局设置的语句？