Office中国论坛/Access中国论坛
标题:
日期格式代码
[打印本页]
作者:
ycxchen
时间:
2009-1-7 10:31
标题:
日期格式代码
我想在导出的文件的文件名中自动加上日期,于是使用了如下语句,但导出的文件的文件名却不能加上日期,代码错在什么地方呢?盼大家指教。
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
时间:
2009-1-7 10:37
newpathname = Me.xls_path & "\" & Me.xls_name & Format(Now(), "yyyymmdd") & ".XLS"
作者:
ycxchen
时间:
2009-1-7 10:47
十分多谢6D版主!我想再问一下,为何在“MsgBox "【" & tab_name & "】已经成功导出! 新文件为:【 " & new_xls_name & Format(Now(), "yyyymmdd") & " .xls 】在目录【" & xls_path & "】下!", vbOKOnly, "提示"”这句不能正确运行呢?
作者:
Henry D. Sy
时间:
2009-1-7 11:11
什么意思
您是指msgbox 没有出现吗?
作者:
ycxchen
时间:
2009-1-7 11:17
不好意思,表达不好。我的意思是按我的原代码 ,运行MsgBox "【" & tab_name & "】已经成功导出! 新文件为:【 " & new_xls_name & Format(Now(), "yyyymmdd") & " .xls 】在目录【" & xls_path & "】下!", vbOKOnly, "提示"后为何导出的文件的文件名却不能加上日期?也就是说, 将Format(Now(), "yyyymmdd") 放在MsgBox语句中为何不能在导出的文件的文件名自动加上日期?盼指教。
作者:
Henry D. Sy
时间:
2009-1-7 11:23
你的日期并没有加到导出的文件名里头(当然包括完整路径),只是加在msgbox里,结果文件名肯定没有日期的。
作者:
ycxchen
时间:
2009-1-7 11:26
十分多谢提醒!
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3