日期格式代码

ycxchen

我想在导出的文件的文件名中自动加上日期，于是使用了如下语句，但导出的文件的文件名却不能加上日期，代码错在什么地方呢？盼大家指教。


Dim tab_name As String
'要导出表的名称

tab_name = Me.tab_name

Dim xls_path As String
'导出后XLS表的存放位置

xls_path = Me.xls_path

Dim new_xls_name As String
'新XLS表的名称

new_xls_name = Me.xls_name

Dim newpathname As String

newpathname = Me.xls_path & "\" & Me.xls_name


DoCmd.TransferSpreadsheet acExport, , tab_name, newpathname, True
'导出表

MsgBox "【" & tab_name & "】已经成功导出! 新文件为:【 " & new_xls_name & Format(Now(), "yyyymmdd") & " .xls 】在目录【" & xls_path & "】下!", vbOKOnly, "提示"

DoCmd.Close

Exit Sub

Henry D. Sy

newpathname = Me.xls_path & "\" & Me.xls_name & Format(Now(), "yyyymmdd") & ".XLS"

ycxchen

十分多谢6D版主！我想再问一下，为何在“MsgBox "【" & tab_name & "】已经成功导出! 新文件为:【 " & new_xls_name & Format(Now(), "yyyymmdd") & " .xls 】在目录【" & xls_path & "】下!", vbOKOnly, "提示"”这句不能正确运行呢？

Henry D. Sy

什么意思
您是指msgbox 没有出现吗？

ycxchen

不好意思，表达不好。我的意思是按我的原代码 ，运行MsgBox "【" & tab_name & "】已经成功导出! 新文件为:【 " & new_xls_name & Format(Now(), "yyyymmdd") & " .xls 】在目录【" & xls_path & "】下!", vbOKOnly, "提示"后为何导出的文件的文件名却不能加上日期？也就是说， 将Format(Now(), "yyyymmdd") 放在MsgBox语句中为何不能在导出的文件的文件名自动加上日期？盼指教。

Henry D. Sy

你的日期并没有加到导出的文件名里头（当然包括完整路径），只是加在msgbox里，结果文件名肯定没有日期的。

ycxchen

十分多谢提醒！