Office中国论坛/Access中国论坛

标题: 求一个输出代码! [打印本页]

作者: xulanghui 时间: 2004-12-7 17:56
标题: 求一个输出代码!
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分.

高手帮忙啊!

作者: BlakeShi 时间: 2004-12-7 18:31
标题: 回复：（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编辑过]

作者: xulanghui 时间: 2004-12-8 01:26
感谢啊,就这样了[em01]

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

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

作者: BlakeShi 时间: 2004-12-8 23:21
标题: 回复：（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编辑过]

作者: xulanghui 时间: 2004-12-9 05:30
标题: 感谢!还要麻烦一下
[attach]8032[/attach]

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

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

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

作者: BlakeShi 时间: 2004-12-9 17:22
把这行代码改一下就行了

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

改成

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

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

作者: xulanghui 时间: 2004-12-9 18:10
我是想文件名加简单字符,如密码是"200412091016W"这样,只需在文本框输入"W"即可,我用objWbk.SaveAs "C:\测试\" & strDateTime & ".xls", , strDateTime&pwd.value提示错误,要怎样做?谢谢了!

作者: BlakeShi 时间: 2004-12-9 22:01
在&符号边上加好空格

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

应该是

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

再试

作者: xulanghui 时间: 2004-12-10 01:29
谢了,够完美了![em01]

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