VBA：如何让这段代码写出3位数的文件名？

Question

我正在使用以下代码从活动PPT文件中导出PNG文件。我发现我需要文件名为三位数。而不是“01.png”，“02.png”等，我需要“001.png”，“002.png”等。

你能帮帮我吗？我试过了

sImageName = Format(oSlide.SlideIndex, "000") & ".png"

但这没效果。

导出有效的部门代码：

For Each oSlide In ActivePresentation.Slides
sImageName = Format(oSlide.SlideIndex, "00") & ".png"
oSlide.Export sImagePath & sImageName, "PNG"
Next oSlide

提前谢谢！

Answer 1

您已获得解决方案，格式应设置为“000”而不是“00”

此代码在Powerpoint 2010中正确运行

Sub Test()
    sImagePath = "C:\Temp\"
    For Each oSlide In ActivePresentation.Slides
    sImageName = Format(oSlide.SlideIndex, "000") & ".png"
    oSlide.Export sImagePath & sImageName, "PNG"
    Next oSlide
End Sub

并生成文件名，例如“001.png”