如何在VBA的SaveAs文件名中引用其他工作簿的百分比单元格值？

问题 #

现有一段VBA代码可按指定日期格式保存文件：

ActiveWorkbook.SaveAs Filename:= _
  "Path\" & _
  "Customer PHR % " & Format(Date - 1, "mm-dd-yyyy")

需要在文件名中添加另一个已打开工作簿的百分比值：该工作簿名为Master Automatic.xlsm，工作表为DSP，目标值位于单元格H3。尝试了以下代码但未得到期望结果：

ActiveWorkbook.SaveAs Filename:= _
  "Path\" & _
  "Customer PHR % " & Workbooks("Master Automatic.xlsm").Worksheets("DSP").Range("H3") & Format(Date - 1, "mm-dd-yyyy")

期望生成的文件名为Customer PHR 12-11-2023 97.54%，请给出正确实现方法。

解决方案 #

修正要点 #

1. 调整文件名各部分的拼接顺序，让日期位于百分比值之前，匹配期望格式
2. 对H3单元格的值使用Format函数格式化，确保输出带百分号且小数位数符合要求的字符串（避免直接取单元格值得到小数形式）

正确代码 #

ActiveWorkbook.SaveAs Filename:= _
  "C:\YourActualFolderPath\" & _  ' 替换为实际的保存路径
  "Customer PHR " & Format(Date - 1, "mm-dd-yyyy") & " " & Format(Workbooks("Master Automatic.xlsm").Worksheets("DSP").Range("H3").Value, "0.00%")

说明 #

• 路径部分必须替换为电脑上的有效路径，比如"D:\ReportFiles\"
• Format(..., "0.00%")会将H3的数值（如0.9754）格式化为97.54%，确保文件名中的百分比格式正确
• 若H3单元格本身是文本格式的百分比，可直接去掉外层Format函数，仅取Range("H3").Value

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