excel VBA 关于用日期做文件名另存图表

Sub save_chart()
ActiveChart.Select
ActiveChart.Copy
Application.SendKeys Format(Date, "yyyy-mm-dd")
Application.Dialogs(xlDialogSaveAs).Show
End Sub
想用日期做文件名另存图表，但是弹出另存为对话框里的日期是不全的，比如2013-06-08只显示-08或者6-08，是什么原因？求教大神

举报该问题

推荐答案 2013-06-09

文件名要符合windows的文件名称命名规则
显然，日期中的-是不符合的。
建议使用字符串拼接
chartname = format(year(date),'00') & format(month(date),'00') & format(day(date),'00')

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/jj0ZreBBe.html

其他回答

第1个回答 2013-06-08

相似回答

EXCEL VBA中怎么用控件来实现保存功能,即创建一个保存命令按钮,然后...答：Sub SaveAs() s = VBA.Split(ThisWorkbook.Name, ".")(0) ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & s & Format(Date, "yyyy-mm-dd") & ".xlsm"End Sub

含有日期的文件名的excel文件内容复制到另一个表里答：亲，这个需要用dir()和通配符确定具体的文件名。例如：fn = Dir(ThisWorkbook.Path & "\*-*-*-*.xls")这就是找到了当前Excel文件所在的目录下，第一个形如“*-*-*-*.xls”的文件，例如“2014-07-05-01.xls”。然后在程序中把 "FILEs.xls"换成 fn 即可。不过，这样做只能匹配到第一个 ...

excel 中,怎么利用vba把文件另存为另一个文件名?答：1、首先，在桌面第一章中，每个工作簿的名称都放在工作表中，如下图所示，然后进入下一步。2、其次，完成上述步骤后，创建一个新的工作簿，将其命名为“第一章目录”，然后按“alt + f11”组合键打开“宏”界面，如下图所示，然后进入下一步。3、接着，完成上述步骤后，在VBA中，单击“插入”...

如何用VBA实现excel表格编辑完关闭前自动以原文件名加系统日期及编号命...答：Application.DisplayAlerts = False n = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)fname = Application.GetSaveAsFilename(CStr(n) & Format(Now(), "yy/mm/dd"), fileFilter:="Excel文件(*.xls),*.xls", Title:=选择保存路径)If fname = False Then Exit Sub ThisWorkbook.SaveAs...

大家正在搜

excel 图表横轴设置日期 excel图表的日期怎么弄 excel表格日期表格 excel表格制作日期表格 excel表格怎么筛选日期 excel表格日期筛选 excel表格怎么按日期排序 excel做图表设置坐标轴 excel文件名