Экспортировать диапазон рабочих листов Excel в PDF-ошибку

Question

Я пытаюсь написать сценарий, который экспортирует выбор диапазона ячеек в PDF. Код я написал следующее:

Sub ExporttoPDF() 

With Sheets("Results").Range("B10:J100") 
    .ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ 
    Filename:="C:\Users\Export.pdf", _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=True 
End With 

End Sub 

Everytime я бегу сценарий, я получаю всплывающее сообщение с ошибкой, которая гласит: «Ошибка выполнения„1004“:. Документ не сохранен документ может быть открыта, или при сохранении может возникнуть ошибка ".

Я исследовал онлайн и попытался найти решение, но не смог. У вас есть представление о том, что я могу сделать неправильно? Спасибо.

Answer 1

Это не самые ясные сообщения об ошибках. Наиболее вероятная причина в том, что у вас есть права на запись в папке C:\Users. Обычно это ограничивается учетными записями администратора.

Я проверил следующее, используя не-учетную запись администратора:

1. C: \ Users \ test.pdf
2. C: \ Users \ My-Псевдоним \ test.pdf

Первый поднял ту же ошибку, с которой вы столкнулись. Второй работал.

Answer 2

Я считаю, что это связано с тем, что Excel не разрешается писать в эту область? Я все еще смотрю, но я смог заставить его работать, изменив путь.

Sub ExporttoPDF() 

With Sheets("Results").Range("B10:J100") 
    .ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ 
    Filename:="C:\Users\tjb1\Desktop\Export.pdf", _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=True 
End With 

End Sub