VBA -保存工作簿并将今天的日期添加到当前工作簿名称

VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，用于在Microsoft Office应用程序中编写自定义宏和脚本。它可以帮助用户自动化各种任务，提高工作效率。

在VBA中，保存工作簿并将今天的日期添加到当前工作簿名称的方法如下：

Sub SaveWorkbookWithDate()
    Dim todayDate As String
    todayDate = Format(Date, "yyyy-mm-dd") '获取今天的日期，格式为yyyy-mm-dd
    
    Dim fileName As String
    fileName = ThisWorkbook.Name '获取当前工作簿的名称
    
    Dim newFileName As String
    newFileName = Left(fileName, Len(fileName) - 5) & "_" & todayDate & ".xlsx" '生成新的文件名，将日期添加到当前工作簿名称的末尾
    
    ThisWorkbook.SaveAs newFileName '保存工作簿为新的文件名
End Sub

上述代码中，首先使用Format函数获取今天的日期，并将其格式化为"yyyy-mm-dd"的形式。然后使用ThisWorkbook.Name获取当前工作簿的名称，并将其赋值给fileName变量。接下来，使用Left函数获取fileName的前缀部分（去除扩展名），然后使用字符串拼接将前缀、下划线、日期和扩展名拼接成新的文件名。最后，使用SaveAs方法将工作簿保存为新的文件名。

这样，运行SaveWorkbookWithDate宏后，当前工作簿将以今天的日期作为后缀进行保存。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云云服务器（CVM）：提供可扩展的计算能力，满足不同规模业务的需求。产品介绍链接
• 腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务，适用于图片、音视频、文档等各种类型的数据存储。产品介绍链接
• 腾讯云云数据库MySQL版（TencentDB for MySQL）：提供高性能、高可用的关系型数据库服务，适用于各种规模的应用场景。产品介绍链接
• 腾讯云人工智能平台（AI Lab）：提供丰富的人工智能服务和开发工具，包括图像识别、语音识别、自然语言处理等。产品介绍链接
• 腾讯云物联网平台（IoT Hub）：提供全面的物联网解决方案，帮助用户快速构建和管理物联网设备。产品介绍链接
• 腾讯云移动推送（TPNS）：提供高效、稳定的移动消息推送服务，帮助开发者实现消息推送功能。产品介绍链接