设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2102|回复: 5
打印 上一主题 下一主题

[模块/函数] 日期的问题

[复制链接]
跳转到指定楼层
1#
发表于 2020-2-28 10:22:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请各位高手看看下面的代码,我想在导出excel的时候文件名加上次日的日期。
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "zzx", "D:\" & "核对表" & Format(Date, "yyyy.mm.dd") & ".XLS", True
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2020-2-28 16:59:17 | 只看该作者
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "zzx", "D:\" & "核对表" & Format(Date, "yyyy-mm-dd") & ".XLS", True注意格式。format不是随你想怎么处理就这么处理的。
如果你非要改成点号,请用year,month,day这些进行拼接。例如:
year(date)&"."&month(date)&"."&day(date)
3#
 楼主| 发表于 2020-2-28 17:55:13 | 只看该作者
roych 发表于 2020-2-28 16:59
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "zzx", "D:\" & "核对表" & Format(Date,  ...

受教了,但是我的问题可能没说明白,这条代码我运行起来没问题,但是他生成的是今天的日期,我的目的是让他生成明天的日期,用了dateadd,但是不行。
4#
 楼主| 发表于 2020-2-29 10:03:12 | 只看该作者
自己顶一下,高手给看一下

点击这里给我发消息

5#
发表于 2020-2-29 17:40:05 | 只看该作者
Format(DateAdd("d", 1, date()), "yyyy-mm-dd")
6#
 楼主| 发表于 2020-2-29 18:13:19 | 只看该作者
admin 发表于 2020-2-29 17:40
Format(DateAdd("d", 1, date()), "yyyy-mm-dd")

谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-3 05:28 , Processed in 0.092125 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表