VBA中格式化InputBox整数型月份值用于SaveAs文件名拼接

你之前的代码存在两个核心问题：

• 调用WorksheetFunction.Text时括号位置错误，格式参数被放在函数括号外，直接触发语法报错
• VBA原生Format函数即可实现数字补前导零效果，无需调用工作表函数，两位补零的格式符直接使用"00"即可，不需要用"0#"

修正后可直接运行的代码 #

Dim Year As Integer
Dim Month As Integer

Year = InputBox("Enter the Year", "Year", "YYYY")
Month = InputBox("Enter the Month", "Month", "M")

' 拼接文件名：第一处月份补前导零为两位格式，第二处使用原始月份数值
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Year & Format(Month, "00") & "-janusus;import-actual-" & Year & Month & "-R.csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

补充说明 #

• 格式符"00"会强制将数字输出为2位长度，不足2位时自动在前部补0：输入6会输出06，输入12会保持12，完全匹配第一处月份的格式要求
• 如果要使用工作表函数Text实现格式化，正确写法为WorksheetFunction.Text(Month, "00")，之前的错误是在Month后多写了一个右括号，导致参数位置异常
• 输入年=2022、月=6时，最终生成的文件名为202206-janusus;import-actual-20226-R.csv，符合命名规范

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