基于VBA实现带当前日期命名的工作簿保存并关闭功能求助

嘿，作为VBA新手能搞定模板下载这一步已经很厉害啦！针对你需要按指定格式命名保存+自动关闭工作簿的需求，我给你整理了针对性的解决方案，直接套用到你的现有代码里就行：

核心思路 #

1. 先构建符合要求的文件名（日期部分+固定后缀+动态编号）
2. 用工作簿变量精准操作你下载的新文件，避免误操作原文件
3. 保存后直接关闭目标工作簿，无需手动确认

完整代码示例 #

假设你已经把模板导入到了新工作簿，只需要在现有代码后面添加这段逻辑：

' 先声明变量（建议放在代码开头）
Dim newWB As Workbook
' 这里替换成你实际获取新工作簿的代码，比如：
' Set newWB = Workbooks.Open("你下载的模板临时路径") 或者你创建新工作簿的语句

' 1. 构建文件名的日期部分（对应示例里的「01 05 2018」）
Dim dateStr As String
dateStr = Format(Date, "dd mm yyyy") ' 如果是月-日-年的格式，就改成"mm dd yyyy"

' 2. 构建完整文件名，把「1889」替换成你实际需要的动态内容（比如单元格值、订单号等）
Dim fullFileName As String
fullFileName = dateStr & "_With taxes_1889"

' 3. 指定保存路径（这里以桌面为例，你可以改成自己的目标文件夹）
Dim saveFullPath As String
saveFullPath = Environ("USERPROFILE") & "\Desktop\" & fullFileName & ".xlsx"

' 4. 保存工作簿，指定xlsx格式（如果是xls就换成xlExcel8）
newWB.SaveAs Filename:=saveFullPath, FileFormat:=xlOpenXMLWorkbook

' 5. 自动关闭工作簿，因为已经保存过了，所以设置SaveChanges:=False避免弹窗
newWB.Close SaveChanges:=False

关键细节说明 #

• 工作簿变量newWB：一定要把你下载的新工作簿赋值给这个变量，这样操作的就是目标文件，不会不小心关掉你写代码的原工作簿；
• 日期格式调整：Format(Date, "dd mm yyyy")会生成两位数的日、月和四位年，完全匹配你要的格式；
• 动态编号替换：如果「1889」是每次都不一样的内容，比如从模板里的某个单元格读取，就把代码里的"1889"换成newWB.Sheets(1).Range("B5").Value（假设值在第一个工作表的B5单元格）；
• 文件格式：xlOpenXMLWorkbook对应现代的xlsx格式，如果你需要兼容旧版xls，就换成xlExcel8。

这样调整后，你的代码就能自动按指定格式保存文件，并且直接关闭新工作簿啦！

内容的提问来源于stack exchange，提问作者Aimé