填充零位数字

Question

我有一个像这样的循环来保存工作表作为CSV文件,但我的前9页是名字喜欢sinani-01 ... sinani-09(不喜欢sinani-1 ... sinani-9).我怎样才能连接0 只有少于10的数字呢？

Sub Adder()
    Dim animal As String
    Dim i As Integer
    For i = 1 To 120
        animal = "sinani-" & i
        Sheets(animal).SaveAs "E:\Data\CSV\" & animal & ".csv", xlCSV
    Next i
End Sub

Answer 1

VBA具有Format()可用于填充数字的功能.

animal = "sinani-" & Format$(i, "00")

这将使用a填充一位数字0.您的两位和三位数字将继续按预期工作.

Answer 2

在第五行中使用Format函数,如下所示:

animal = "sinani-" & Format(i, "#00")

该#装置可选地是一个数字(即,只有在有多个数字的情况下才存在i),0意味着绝对是一个数字,如果i没有足够的数字,则使用前导零.