在 Excel VBA 中，动态文件名通常用于生成基于当前日期、时间、用户输入或其他变量的文件名。以下是一个完整的 VBA 实例，展示如何构造动态文件名并将其用于保存文件。

1. 动态文件名的常见用途

• 基于当前日期和时间生成文件名。
• 基于用户输入生成文件名。
• 基于工作表中的数据生成文件名。

2. 示例：基于当前日期和时间生成文件名

以下代码演示如何生成一个包含当前日期和时间的动态文件名，并将其用于保存工作簿。

Sub SaveWorkbookWithDynamicFileName()
    Dim filePath As String
    Dim fileName As String
    Dim currentDate As String
    Dim currentTime As String

    ' 获取当前日期和时间
    currentDate = Format(Now, "yyyy-mm-dd") ' 格式化为 yyyy-mm-dd
    currentTime = Format(Now, "hh-mm-ss")   ' 格式化为 hh-mm-ss

    ' 构造文件名
    fileName = "Report_" & currentDate & "_" & currentTime & ".xlsx"

    ' 构造完整文件路径
    filePath = ThisWorkbook.Path & "\" & fileName

    ' 保存工作簿
    ThisWorkbook.SaveAs Filename:=filePath

    ' 提示用户
    MsgBox "工作簿已保存为：" & filePath, vbInformation, "保存成功"
End Sub

3. 示例：基于用户输入生成文件名

以下代码演示如何根据用户输入生成动态文件名。

Sub SaveWorkbookWithUserInputFileName()
    Dim filePath As String
    Dim fileName As String
    Dim userInput As String

    ' 获取用户输入
    userInput = InputBox("请输入文件名（无需扩展名）：", "文件名输入")

    ' 检查用户是否输入了内容
    If userInput = "" Then
        MsgBox "文件名不能为空！", vbExclamation, "错误"
        Exit Sub
    End If

    ' 构造文件名
    fileName = userInput & ".xlsx"

    ' 构造完整文件路径
    filePath = ThisWorkbook.Path & "\" & fileName

    ' 保存工作簿
    ThisWorkbook.SaveAs Filename:=filePath

    ' 提示用户
    MsgBox "工作簿已保存为：" & filePath, vbInformation, "保存成功"
End Sub

4. 示例：基于工作表中的数据生成文件名

以下代码演示如何根据工作表中的数据生成动态文件名。

Sub SaveWorkbookWithSheetDataFileName()
    Dim filePath As String
    Dim fileName As String
    Dim reportName As String
    Dim reportDate As String

    ' 从工作表中获取数据
    With ThisWorkbook.Sheets("Data")
        reportName = .Range("B1").Value ' 假设报告名称在 B1 单元格
        reportDate = .Range("B2").Value ' 假设报告日期在 B2 单元格
    End With

    ' 检查数据是否为空
    If reportName = "" Or reportDate = "" Then
        MsgBox "报告名称或日期不能为空！", vbExclamation, "错误"
        Exit Sub
    End If

    ' 构造文件名
    fileName = reportName & "_" & Format(reportDate, "yyyy-mm-dd") & ".xlsx"

    ' 构造完整文件路径
    filePath = ThisWorkbook.Path & "\" & fileName

    ' 保存工作簿
    ThisWorkbook.SaveAs Filename:=filePath

    ' 提示用户
    MsgBox "工作簿已保存为：" & filePath, vbInformation, "保存成功"
End Sub

5. 示例：动态文件名的高级用法

以下代码演示如何结合多个变量生成动态文件名，并确保文件名唯一。

Sub SaveWorkbookWithUniqueDynamicFileName()
    Dim filePath As String
    Dim fileName As String
    Dim baseName As String
    Dim counter As Long

    ' 基础文件名
    baseName = "Report_" & Format(Now, "yyyy-mm-dd")

    ' 初始化计数器
    counter = 1

    ' 构造初始文件名
    fileName = baseName & ".xlsx"
    filePath = ThisWorkbook.Path & "\" & fileName

    ' 检查文件是否已存在，如果存在则增加计数器
    Do While Dir(filePath) <> ""
        fileName = baseName & "_" & counter & ".xlsx"
        filePath = ThisWorkbook.Path & "\" & fileName
        counter = counter + 1
    Loop

    ' 保存工作簿
    ThisWorkbook.SaveAs Filename:=filePath

    ' 提示用户
    MsgBox "工作簿已保存为：" & filePath, vbInformation, "保存成功"
End Sub

6. 通过上述示例，你可以实现以下功能：

1. 基于当前日期和时间生成动态文件名。
2. 基于用户输入生成动态文件名。
3. 基于工作表中的数据生成动态文件名。
4. 确保文件名唯一，避免覆盖现有文件。

这些方法可以广泛应用于自动化任务中，例如生成报告、备份数据等。根据实际需求，你可以灵活调整代码逻辑。