使用VBA在excel中保存文件

使用VBA在excel中保存文件,excel,vba,Excel,Vba,我记录了保存文件的宏,但我希望文件名为 OOR&日期和时间 因此,输出应为2017年10月18日上午7:38 有人能帮我写代码吗?非常感谢: ChDir "C:\Users\spall1\Desktop\Base Business\Base Business Report\OOR Report" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\spall1\Desktop\Base Business\Base Business Re

我记录了保存文件的宏,但我希望文件名为

OOR&日期和时间

因此,输出应为2017年10月18日上午7:38

有人能帮我写代码吗?非常感谢:

 ChDir "C:\Users\spall1\Desktop\Base Business\Base Business Report\OOR Report"
     ActiveWorkbook.SaveAs Filename:= _
     "C:\Users\spall1\Desktop\Base Business\Base Business Report\OOR Report\OOR & DATE & TIME.xlsx" _
    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

在添加日期和时间变量之前,需要使用关闭常量字符串部分

将字符串的最后一部分更改为:

\OOR & DATE & TIME.xlsx"
致:

或者,您可以立即使用VBA,它将为您提供日期和时间:


您不能在文件名中使用冒号。我刚刚单击了record,这就是出现的代码,我只是在接近尾声时更改了部分,其中显示OOR&DATE&TIME宏似乎正在工作,但它将文件名保存为OOR日期时间,而不是OOR 10/18/2017 07:53 AM冒号字符:在文件或文件夹名称中无效,至少在windows上是如此,所以你需要用其他的东西来代替它。如果你把日期和时间放在一个文件名中,那么最好使用类似ISO的24小时时钟格式,例如OOR 2017-10-18 0753-无歧义,排序正确。我使用了Now方法,它仍然给我一个错误:它说它找不到文件名
\OOR" & Date & Time & ".xlsx"
\OOR" & Now & ".xlsx"
:
    ActiveWorkbook.SaveAs _
     Filename:= _
      "C:\Users\spall1\Desktop\Base Business\Base Business Report\OOR Report\OOR " & Format(Now(), "YYYY-MM-DD HHMM") & ".xls" _
     , FileFormat:=xlOpenXMLWorkbook _
     , CreateBackup:=False
: