在VBA中自动更新文件名

Question

我有一个在我的宏中引用的excel文件，名为库存报告“今天的日期”ex。 （Inventroy report 11_01_2017）我试图找到一种方法让VBA始终以名称中的当前日期引用该文件

Answer 1

如果您想获取当前文件名，加上当前日期，您可以执行以下操作：

Sub t()
Dim fileName As String, curDate As String
curDate = Date
fileName = ActiveWorkbook.Name
fileName = Left(fileName, InStr(fileName, ".") - 1)
fileName = fileName & " " & curDate
Debug.Print fileName
End Sub

如果您需要使用_代替/的日期，则可以添加：

curDate = WorksheetFunction.Substitute(date, "/", "_")