VBA Экспорт Excel в PDF

Question

Я получаю ошибку «1004» при запуске этого макроса.

Sub macro_PDF()

ActiveSheet.ExportAsFixedFormat _
     Type:=xlTypePDF, _
     FileName:="/Users/username/Desktop/tests/filename.pdf", _
     OpenAfterPublish:=False
End Sub

Изображение ошибки

Этот же код отлично работает, если имя файла «PDF.pdf». Похоже, я могу экспортировать только PDF с именем "PDF.pdf".

Код ниже не возвращает ошибок. Почему это происходит?

Sub macro_PDF()

ActiveSheet.ExportAsFixedFormat _
     Type:=xlTypePDF, _
     FileName:="/Users/username/Desktop/tests/pdf.pdf", _
     OpenAfterPublish:=False
End Sub

Answer 1

Я несколько раз запускал / отлаживал это на своем ПК и, разумеется, имя файла не имеет значения.Filename.pdf экспортирует просто отлично.Эта ошибка имеет две возможные причины.(1) Это то, что сам путь к файлу не был найден, другой (2), что файл уже существует.Поэтому сначала проверьте это следующим образом:

Sub macro_PDF()
Filename = "c:/fmob/filename.pdf"
If Dir(Filename) <> vbNullString Then
    Kill Filename
End If
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Filename, _
    OpenAfterPublish:=False
End Sub

Я столкнулся с одной ситуацией, когда макрос не может записать файл даже после удаления записи (например, с помощью проводника), и это, похоже, является следствием некоторой ошибкис PDF Acrobat неправильно закрывает все файловые дескрипторы.Предположительно, перезагрузка исправит это.