求一个输出代码!

xulanghui

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

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

感谢啊,就这样了[em01]

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

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

BlakeShi

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

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

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

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

BlakeShi

把这行代码改一下就行了

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

改成

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

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

xulanghui

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

BlakeShi

在&符号边上加好空格

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

应该是

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

再试

xulanghui

谢了,够完美了![em01]