时间戳

首页 > 解决方案 > 将当前时间戳添加到文件名的末尾

excel - 将当前时间戳添加到文件名的末尾

问题描述

当前 VBA 代码的背景

目前我有以下 VBA 代码，它将从 excel 工作簿表中选择一系列单元格，并在下面显示的目录中创建这些单元格的 csv，其中 csv 文件名当前为“PersonalFinances”

Sub CreateNewCSV2()

  Range("A4:AK32").Select
  Selection.Copy
  Workbooks.Add
  ActiveSheet.Paste
  Application.CutCopyMode = False

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Project Files\Personal\PersonalFinances.csv", FileFormat:= _
        xlCSV, CreateBackup:=False
        
End Sub

我的问题： 如何修改上面的代码，以便每天运行此宏来创建“PersonalFinances”CSV，我可以将当​​前日期时间戳添加到 CSV 文件名的末尾。例如，如果我今天运行宏，csv 文件名将是：“PersonalFinances20210916.csv”。任何帮助将不胜感激。

标签： excelvba

解决方案

只需更新如下所示：

ActiveWorkbook.SaveAs Filename:= _
        "C:\Project Files\Personal\PersonalFinances" & Format$(Now, "yyyyMMdd") & ".csv",, FileFormat:= _
        xlCSV, CreateBackup:=False

推荐阅读