Question

我记得保存文件的宏，但是我希望文件的名称是

＆＃34; OOR＆＃34; ＆安培; ＆＃34; ＆＃34; ＆安培;日期＆amp; ＆＃34; ＆＃34; ＆安培;时间

所以输出应该是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关闭常量字符串部分。

更改字符串的最后一部分：

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

使用VBA将文件保存在excel中

2 个答案: