使用VBA在excel中保存文件

Question

我重新整理了保存文件的宏，但我希望文件名是

“ OOR”＆“”＆日期＆“＆時間

因此輸出應為OOR 10.18.2017 07:38 AM

有人可以幫助我提供代碼嗎？ 非常感謝：

 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

Answer 1

在添加Date和Time變量之前，您需要先使用"關閉常量String部分。

從以下位置更改字符串的最后一部分：

\OOR & DATE & TIME.xlsx"

至：

\OOR" & Date & Time & ".xlsx"

或者 ，您可以使用VBA Now ，它將為您提供Date和Time ：

\OOR" & Now & ".xlsx"

Answer 2

:
    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
: