我如何格式化一个数字以使用宏的文件名中至少具有5位数字

Question

我正在研究一个宏，该宏涉及生成文件名并将Excel表作为PDF保存为PDF。

我能够如下生成目标文件夹名称。

user_name = Environ$("UserName")
file_dir = "C:Users" & user_name & "DocumentsJobs"

创建文件名如下。

Job_No = Site & "SV" & num_from_cell
PDF = Job_No & ".pdf"
file_path = file_dir & PDF

当前上述代码返回MWSV234.pdf。我希望它是MWSV00234.pdf。num_from_cell来自Excel表中的一个单元格。

简而言之，我想将PAD num_from_cell剩下到5位数字。你能告诉我如何吗？

Answer 1

使用Environ$("HomePath")使用户主页目录而不是Environ$("UserName")

将更安全

file_dir = Environ$("HomePath") & "DocumentsJobs"

---

然后使用Format与5个数字的领先零进行格式

Job_No = Site & "SV" & Format(num_from_cell, "00000")
PDF = Job_No & ".pdf"
file_path = file_dir & PDF