导出txt格式时，怎样在文件名称中自动加入当前日期和时间

ynfsr　发表于：2008-12-21 22:16:40 　

复制

如题

将表或查询自动导出为txt格式或xls格式时，怎样在导出的文件名称中

自动加入当前日期和时间？请教各位大侠了！！！

Top

ACMAIN.CHM 发表于：2008-12-21 22:22:50

select * into [Excel 8.0;database=导出目录].导出表名from 表

select * into [text;databASE=d:\temp].123.txt from tt

Top

残荷听雨发表于：2008-12-22 08:19:53

表导出为XLS函数模块

'------------------------------------------------------------
' 导出EXCEL
'daochuEXCEL("需要导出的表名称","导出的Excel文件所在的路径","EXcel文件名的时间后的后缀名")
'------------------------------------------------------------

Public Function daochuEXCEL(ByVal GongZuoBiao As String, ByVal Road As String, ByVal ExcelName As String)
    On Error Resume Next

     newnamw = Format(Now, "yyyymmdd-hhmmss") & ExcelName

     DoCmd.TransferSpreadsheet acExport, 8, GongZuoBiao, Road & "\" & newnamw & ".xls", False, ""

End Function

Top

ynfsr 发表于：2008-12-23 19:39:38

Road 是否可有可无啊？

Top

ynfsr 发表于：2008-12-23 19:42:46

wnxjy68　老师 Road 是否可有可无啊？

Top

ynfsr 发表于：2008-12-23 20:37:06

newnamw = Format(Now, "yyyymmdd-hhmmss") & ExcelName

DoCmd.TransferSpreadsheet acExport, 8, GongZuoBiao, Road & "\" & newnamw & ".xls", False, ""

足矣

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

导出txt格式时，怎样在文件名称中自动加入当前日期和时间