Office中国论坛/Access中国论坛

标题: 关于后台处理EXCEL数据问题的请教！ [打印本页]

作者: panjianhui 时间: 2008-5-15 12:01
标题: 关于后台处理EXCEL数据问题的请教！
我有一个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。

以上，请教了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)