急！在线等access自定义导出excel在不同sheet表

咖啡色指甲油　发表于：2010-09-16 10:15:22 　

复制

请教各路神仙。

我现在制作了一个access，需要从这个access里面自定义导出2个excel也就是表A,表B

能不能不是2个excel而是分别在1个excel里面2个sheet表并且命名为A,B？

不知小女子这样表述是否清楚。各路神仙99菜鸟~~~~~

鞠躬感谢ING..........

在线等！

点击下载此附件

找不到解答？

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

Top

煮江品茶发表于：2010-09-16 10:58:14

地址需要根据实际修改：

Private Sub Command2_Click()
DoCmd.TransferSpreadsheet acExport, 8, "a", "C:\Users\think\Desktop\1\导出表.xls", True, "sheet1"
DoCmd.TransferSpreadsheet acExport, 8, "b", "C:\Users\think\Desktop\1\导出表.xls", True, "sheet2"
End Sub

Top

咖啡色指甲油发表于：2010-09-16 11:13:32

感谢总版主。但是我想要的是自定义导出~~~

能不能再帮帮忙~~

谢谢大仙~~~

Top

煮江品茶发表于：2010-09-16 11:24:46

那可以采用这个方案：

点击下载此附件

Top

煮江品茶发表于：2010-09-16 11:28:51

由于版本不同，可能会丢失引用。请在VB视图下，点击菜单栏的工具--引用，将丢失的引用去掉，然后勾选其版本较低的同类引用。

大概Microsoft Office 12.0 Object Library会丢失，请选Microsoft Office 11.0 Object Library。

Top

咖啡色指甲油发表于：2010-09-16 11:37:18

老大，我为什么一运行你得数据库，就出现这种问题呀？

Top

咖啡色指甲油发表于：2010-09-16 11:40:15

噢噢噢~~~正在改正中。。。

Top

咖啡色指甲油发表于：2010-09-16 12:12:40

这个回复，总版技术，知识真是太高深了。。总版辛苦了。。鞠躬拜拜ING...

但是我想要的是内种特别特别特别简单的

第一：点击按键，弹出自定义对话框，文件名就是自己本身access内个名字，不用从新起名字，不用在本地新建excel

第二：选择具体路径。保存

其间重要的是：1.本身access里面有2个表，需要导出到本地得1个excel但是要把这2个表放在同一个excel得不同sheet中。

Ok~~

再次辛苦神仙、大侠了。。。。

我知道自定义导出excel得语句是这样，但是缺陷是不能够在一个excel得不同sheet：

DoCmd.OutputTo acOutputTable, "数据问题", 8, , False

Top

煮江品茶发表于：2010-09-16 12:22:39

是不是不选择文件夹以及E文件来着？

Top

咖啡色指甲油发表于：2010-09-16 12:30:06

导出得excel文件要自定义在某个路径下。但是这个路径下本没有这个excel

Top

煮江品茶发表于：2010-09-16 12:46:08

Private Sub Command2_Click()

    strPath = GetFolder(False)
    DoCmd.TransferSpreadsheet acExport, 8, "a", strPath & "\导出.xls", True, "sheet1"
    DoCmd.TransferSpreadsheet acExport, 8, "b", strPath & "\导出.xls", True, "sheet2"
end sub

Top

咖啡色指甲油发表于：2010-09-16 13:30:51

总版还要99菜鸟~~