[已解决]请教生成并保存工作簿及显示日期的宏代码！

lsy1133

下述宏代码觉得没有错，但运行后显示为1004错误；另外now()函数显示为2015-2-14  8:17:17，能否只显示2015-2-14，不显示时间。谢谢！
Sub scbg()
Dim ADstring As String
Dim CDstring As String
Dim BDstring As String
ADstring = Application.ThisWorkbook.Path
CDstring = "报告拟稿" & "(" & Replace((Now), "/", "-") & ").xlsx"
BDstring = ADstring & "\" & CDstring
Workbooks.Add
ChDir ADstring
ActiveWorkbook.SaveAs Filename:=BDstring, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

最佳答案

月排行榜 / 总排行榜

猛哥

2015-2-14 09:18

非常抱歉，我是小白，刚学基础与函数，暂时没能帮到你。只想祝你情人节快乐。

跳转到最佳答案楼层

猛哥

非常抱歉，我是小白，刚学基础与函数，暂时没能帮到你。只想祝你情人节快乐。

雪舞子

试试这样：

Sub scbg()
    Dim ADstring As String
    Dim CDstring As String
    Dim BDstring As String
    ADstring = Application.ThisWorkbook.Path
    CDstring = "报告拟稿" & "(" & Replace((Date), "/", "-") & ").xlsx"
    BDstring = ADstring & "\" & CDstring
    Workbooks.Add
    ChDir ADstring
    ActiveWorkbook.SaveAs Filename:=BDstring, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

lsy1133

雪舞子 发表于 2015-2-14 09:29
试试这样：

Sub scbg()

呵呵---我知道原因了！就是：的问题，谢谢你！