设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1863|回复: 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空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

9#
 楼主| 发表于 2004-12-10 01:29:00 | 只看该作者
谢了,够完美了![em01]
8#
发表于 2004-12-9 22:01:00 | 只看该作者
在&符号边上加好空格

objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime&pwd.value

应该是

objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime & pwd.value

再试

点击这里给我发消息

7#
 楼主| 发表于 2004-12-9 18:10:00 | 只看该作者
我是想文件名加简单字符,如密码是"200412091016W"这样,只需在文本框输入"W"即可,我用objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime&pwd.value提示错误,要怎样做?谢谢了!
6#
发表于 2004-12-9 17:22:00 | 只看该作者
把这行代码改一下就行了

objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime

改成

objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , pwd.value

我也不太清除密码限制是多少位,你可以自己试试

点击这里给我发消息

5#
 楼主| 发表于 2004-12-9 05:30:00 | 只看该作者

感谢!还要麻烦一下





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

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

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

本帖子中包含更多资源

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

x
4#
发表于 2004-12-8 23:21:00 | 只看该作者

回复:(xulanghui)感谢啊,就这样了[em01]那如何让...

Private function OutputWithPWD() as integer

    Dim strDateTime As String

    Dim objWbk, objXls As Object

   

    strDateTime = Format(Now, "yyyymmddhhmm")

    DoCmd.OutputTo acTable, "班组名称", "MicrosoftExcelBiff8(*.xls)", "c:\测试\" & strDateTime & ".tmp"

    Set objXls = CreateObject("Excel.Application")

    Set objWbk = objXls.Workbooks.Open("C:\测试\" & strDateTime & ".tmp", , False)

   

    objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime

    Kill "C:\测试\" & strDateTime & ".tmp"

   

    objWbk.Close

    objXls.Quit

   

    Set objWbk = Nothing

    Set objXls = Nothing

   

End function

我能想到的就这些了,有点繁琐,应该还有更好的办法

[此贴子已经被作者于2004-12-8 15:24:00编辑过]

点击这里给我发消息

3#
 楼主| 发表于 2004-12-8 01:26:00 | 只看该作者
感谢啊,就这样了[em01]

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

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

2#
发表于 2004-12-7 18:31:00 | 只看该作者

回复:(xulanghui)求一个输出代码!

Private Function test() As Integer

    Dim strDateTime As String

   

    strDateTime = Format(Now, "yyyymmddhhmm")

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

End Function

这样行吗?

[此贴子已经被作者于2004-12-7 10:31:40编辑过]

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 07:31 , Processed in 0.087379 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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