求一个输出代码!

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编辑过]

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编辑过]

BlakeShi

把这行代码改一下就行了

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

改成

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

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

BlakeShi

在&符号边上加好空格

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

应该是

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

再试