ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2066|回复: 8

[求助] 请高手编写几句代码,批量改变查询参数,并且导出报表到pdf

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-3-1 21:13 | 显示全部楼层 |阅读模式
在“值班”查询中,将“日期”字段中陆续输入查询参数,“星期一”“星期二”“星期三”“星期四”.....
然后每一次改变参数查询后,将相应的报表,“值班表打印”输出成为pdf文档。就得到多个pdf文档。

请群中的高手们为窗体中的按钮控件编写几句代码,能够实现。点击按钮后,自动完成以上过程。

要求pdf文档的名字用每一次查询的参数来命名,路径可以指定:
例如:
星期一.pdf
星期二.pdf
星期三.pdf
星期四.pdf

示例(2).rar

32.63 KB, 下载次数: 11

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-1 21:17 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-2 13:20 | 显示全部楼层
等着大侠出现,数据只是举例的,事实上工作数据比这复杂,求救????

TA的精华主题

TA的得分主题

发表于 2015-3-3 11:32 | 显示全部楼层
本帖最后由 roych 于 2015-3-3 11:38 编辑

随便写了个
示例.rar (44.01 KB, 下载次数: 27) 顺便说句,导出PDF文件的是2010版才有的功能。——2007版有没有我不清楚,没用过,反正2003版本是没有的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-3 21:07 | 显示全部楼层
谢谢你的回复,虽然没有调试好,但是总算有人关注了。
你能给说说,怎样给窗体上的文本框赋值么?比如,怎样让窗体 “主界面”  上的一个名字叫做 “ClassName”  的文本框中    陆续填上文本值   “一班” 乃至 “二班” “三班”
问题有些白痴,但真心希望能帮一下,

TA的精华主题

TA的得分主题

发表于 2015-3-5 14:57 | 显示全部楼层
两根白果树 发表于 2015-3-3 21:07
谢谢你的回复,虽然没有调试好,但是总算有人关注了。
你能给说说,怎样给窗体上的文本框赋值么?比如,怎 ...

没有调试好是什么意思?不能导出PDF还是别的原因?
我这里是没有处理批量的,应该是先选择一个字段,再点击导出,然后生成一个PDF……完全符合你的要求。^_^
如果需要批量导出,则需要写循环。可能还涉及ADO(或者DAO)来读取查询名称…鉴于EH里的Access版块人气不算太好,为了让更多版友得到更好的学习,我不会在这里讨论这个问题的。
如果真的对Access有兴趣,不妨前往office中国论坛看看:
roych邀请您访问Office中国论坛/Access中国论坛
http://www.office-cn.net/?fromuser=roych

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-5 20:38 | 显示全部楼层
谢谢,我再次看了你的例子,你的例子是在框里边选择一个项目,导出一个项目,然后在选择一个项目,再导出一个项目,已经为我的工作减轻了许多的繁琐。如果能够一个按钮,把所有要选择的项目,统统一次性导出来,就更加好了。开始我没有细看,没有在框中选择项目,代码运行出现了错误,所以认为没有调试好。那是我犯的超低级错误。
我以前做一些东西是用excel来做的,所以用excel稍微要多些,在excel home的时间稍微多点。蓝桥玄霜版主也为我解决了些问题。所以我才会在这个比较熟悉的社区发帖。

祝羊年工作顺心如意,谢了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-6 21:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
roych,你好,可否帮助看一下,我改的文件改怎样改,我希望用数组变量中的数值轮流带进sql语句中去,一次性完成所有的查询和导出,但是我不知道怎样做。

问题解决示例版本3.rar

40.19 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-3-6 21:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
补充一下,执行我的代码是点击command4. 而且我写的只能执行一次,第二次就没有反映了,不知道怎么回事。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-17 05:47 , Processed in 0.046802 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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