设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[其它] 求一个输出代码!

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2004-12-7 17:56:00 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
Function 宏1()

    DoCmd.OutputTo acTable, "班组名称", "MicrosoftExcelBiff8(*.xls)", "c:\测试\测试2.xls", False, "", 0

End Function

这是我用宏做成VB代码,我希望那个"测试2.XLS"能变成每次输出的时间做名称,如200412071002.XLS这样,小时用24小时制.上面意思是2004年12月07日10点02分.

高手帮忙啊!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
 楼主| 发表于 2004-12-8 01:26:00 | 显示全部楼层
感谢啊,就这样了[em01]

那如何让输出的XLS加个密码呢,密码就为那个时间?

[此贴子已经被作者于2004-12-7 17:28:38编辑过]

点击这里给我发消息

3#
 楼主| 发表于 2004-12-9 05:30:00 | 显示全部楼层

感谢!还要麻烦一下





密码只用文件名还是太不安全,麻烦BlakeShi 大侠让输出时,密码还加上窗体上自定义的字符,这样就完美了.

另请问那密码可最多多少位啊?

[此贴子已经被作者于2004-12-8 21:33:06编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

4#
 楼主| 发表于 2004-12-9 18:10:00 | 显示全部楼层
我是想文件名加简单字符,如密码是"200412091016W"这样,只需在文本框输入"W"即可,我用objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime&pwd.value提示错误,要怎样做?谢谢了!

点击这里给我发消息

5#
 楼主| 发表于 2004-12-10 01:29:00 | 显示全部楼层
谢了,够完美了![em01]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-16 17:18 , Processed in 0.108743 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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