【求助】在ACCESS里如何完成excel操作？

panjianhui

我有一个Excel表，里面的数据来源于ACCESS数据库，我只需在这个表的一个单元格里输入一个参数，就能打印ACCESS数据库里的资料内容。
比如，ACCESS存在若干张订单以及订单明细，我在Excel的单元格里输入订单号码，Excel自动刷新一下就能出来这张订单的订单明细，我就能按照设定的格式打印了。（我不想利用ACCESS里的报表打印功能是因为ACCESS的报表无法提供给我想要的格式，没有Excel里的表格来的精美。
现在我想在ACCESS里加入一个按钮，单击就可以直接打印这个Excel表，而无需手动打开EXCEL表，输入参数，刷新数据再来打印。
因对Excel的VB代码不是很了解，所以想求助各位帮忙完成一下这些代码，大概思路如下：
在ACCESS的“打印”按钮的单击事件编写如下代码：
Dim xlapp As Object
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True

xlapp.Workbooks.Open ("d:\订单处理系统\打印单据.xls")
Dim sheet As Object
Set sheet = xlapp.Sheets("打印界面")
sheet.Cells(3, 3) = ‘“ & me！订单号码 & "'
以下不会了，请帮忙写一下，需完成的功能如下：
1、表：打印单据.xls 整个表格刷新，（因为有好几个SHEET都存在数据链接）
2、打印《sheet.打印界面》
3、不保存《表：打印单据.xls》的情况下关闭EXCEL。

以上，请教了

lilyrain1214

我也是类似的问题,还是要请高手啊.

kangking

有一个简单的办法，先在EXCEL中录制一个宏，再把相应的代码复制到ACCESS中。

panjianhui

问题是ACCESS和EXCEL对象操作存在一定差异，直接这样复制有效吗？

kangking

因为你没有做一个例子，我的例子不知道在什么地方了。晕，就在两天前还做了一个的。

kangking

应该是在你的过程的后面加上下面一句就可以直接打印了
sheet .printout

sgrshh29

原帖由 kangking 于 2008-5-16 14:41 发表
应该是在你的过程的后面加上下面一句就可以直接打印了
sheet .printout

就是这个办法。

panjianhui

打印以后，不保存这个EXCEL工作表的改动就直接退出的代码怎么写啊？

kangking

xlapp.Workbooks.Close  false
xlapp.quit