vba - VBA重复PDF文件

Question

我真的需要帮助。我需要一个 VBA 函数来制作单个 PDF 文件的副本。例如，引用/名称为 1 的文件，我需要 x 份副本让我们说 1 到 10。为了避免复制和粘贴 9 次并手动重命名它们，我确信必须有一个函数来完成这项工作. 我对 VBA 非常基础，所以任何帮助都将不胜感激。

非常感谢

Answer 1

首先，您需要在 VBA 编辑器中添加对 Microsoft Scripting Runtime 的引用。然后以下将工作...

Public Sub Test()
    CopyFile "C:\Users\randrews\Desktop\1.gif", "C:\Users\randrews\Desktop", 10
End Sub

Public Sub CopyFile(OriginalPath As String, DestinationFolderPath, Copies As Integer)

Dim fs As New FileSystemObject

For i = 1 To Copies
    OrigName = fs.GetFileName(OriginalPath) 'file name with extention e.g. 1.gif
    OrigNumber = CInt(Left(OrigName, Len(OrigName) - 4)) 'file name converted to a number - this will crash if the file name contains any non numeric chars
    DestName = OrigNumber + i & "." & fs.GetExtensionName(OriginalPath) 'new file name = original number + i + the file extension
    fs.CopyFile OriginalPath, DestinationFolderPath & "\" & DestName
Next i

End Sub