проверка дубликата файла при экспорте

Question

может кто-нибудь сказать мне, что я делаю неправильно, я пытаюсь экспортировать файл, и если файл существует, чтобы добавить дубликат в его конец, я не могу заставить его работать

Dim FilePath As String
Dim FileName As String
Dim MyDate As String
Dim megalist As String
Dim FileCopy As String
Dim copy As String

copy = " Duplicate"
FilePath = "Q:\RADIOLOGY\ADMINISTRATION\DATA\CT DISTRIBUTION\PAY ROLL\"
MyDate = Format(Date, "MM-DD-YYYY")
megalist = " Megalist"

FileName = FilePath & MyDate & megalist
FileCopy = FilePath & MyDate & megalist & copy
If Dir(FilePath) <> MyDate & Report Then
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Else
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileCopy
End If

End Sub

Answer 1

См. Ответ ниже для генерации вашего FileName.

https://stackoverflow.com/a/31706252/1684486

, а затем просто используйте ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName

EDiT в вашем случае:

FilePath = "Q:\RADIOLOGY\ADMINISTRATION\DATA\CT DISTRIBUTION\PAY ROLL\"
MyDate = Format(Date, "MM-DD-YYYY")
megalist = " Megalist"

FileName = GetNextAvailableName(FilePath & MyDate & megalist)
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName

конечно, вам нужно скопировать функцию GetNextAvailableName из этого ответа в публичный модуль вашего проекта.