设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1614|回复: 0
打印 上一主题 下一主题

[基础应用] 关于后台处理EXCEL数据问题的请教!

[复制链接]
跳转到指定楼层
1#
发表于 2008-5-15 12:01:13 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我有一个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。

以上,请教了
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 19:59 , Processed in 0.082964 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表