[已解决]代码修改

菜鸟一位

我想让文件备份，并且文件名显示为“备份&当前日期”我运行下面代码后文件名是“备份&mynow”，那位高手帮我修改下，
本人刚学VBA，见笑了
Sub bf()
Dim mynow As String
mynow = Application.WorksheetFunction.Text(Now(), "yymmdd")
ThisWorkbook.SaveCopyAs Filename:="d:\备份\备份&mynow.xls"
End Sub

最佳答案

月排行榜 / 总排行榜

roych

2015-4-7 11:30

Sub bf()
Dim mynow As String
mynow = Application.WorksheetFunction.Text(Now(), "yymmdd")
ThisWorkbook.SaveCopyAs Filename:="d:\备份\备份"&mynow&".xls"
End Sub

跳转到最佳答案楼层

roych

Sub bf()
Dim mynow As String
mynow = Application.WorksheetFunction.Text(Now(), "yymmdd")
ThisWorkbook.SaveCopyAs Filename:="d:\备份\备份"&mynow&".xls"
End Sub

菜鸟一位

roych 发表于 2015-4-7 11:30
Sub bf()
Dim mynow As String
mynow = Application.WorksheetFunction.Text(Now(), "yymmdd")

感谢！！！！！！