Синтаксическая ошибка в макросе Microsoft Excel для преобразования в PDF

0

Sub invoicepdf()
Sheet2.Range("a1:j53").ExportAsFixedFormat xlTypePdf,Filename:="C:\Invoice data\" & Sheet2.Range("j12").Value, OpenAfterPublish:=true
End Sub

Я использую это в Excel vba для преобразования Excel в PDF, но я вижу синтаксическую ошибку.

Может кто-нибудь, пожалуйста, помогите, где я делаю ошибку.

windows-10 microsoft-excel vba

— Jagadish
источник

Какую ошибку вы видите именно?

— Pimp Juice IT

Неправильный способ выбора двух диапазонов данных, проверьте мой ответ, он поможет вам работать с несколькими диапазонами данных для преобразования в PDF. ☺

— Rajesh S

0

Попробуйте заменить Sheet2 на Worksheets ("Sheet2") в вашем скрипте vb:

Sub invoicepdf()
Worksheets("Sheet2").Range("a1:j53").ExportAsFixedFormat xlTypePdf,Filename:="C:\Invoice data\" & Worksheets("Sheet2").Range("j12").Value, OpenAfterPublish:=true
End Sub

Также убедитесь, что нет целевого файла с именем, которое вы указали в ячейке J12, иначе ваш скрипт потерпит неудачу

— Art Gertner
источник

-1

Вы можете использовать этот макрос для экспорта / преобразования нескольких диапазонов данных в файл PDF.

Private Sub CommandButton1_Click()

 Worksheets("Sheet2").Activate

 Range("A82:D90,A92:E93,A96:C98").Select
 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "C:\temp\Book1.pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  True

End Sub

Заметка,

При необходимости измените ссылки на ячейки.
Путь к файлу & amp; Имя редактируемое.

— Rajesh S
источник

Так почему бы вам не дать ответ, который адаптирован к этому вопросу?

— DavidPostill

@DavidPostill, спасибо, что подняли хороший вопрос, не могли бы вы помочь мне, где я сделал ошибку, чтобы я мог редактировать пост. Поскольку я написал в OP, что метод использования 2-х диапазонов неверен в комментариях выше, я предлагаю полный код VBA OP для завершения работы. ☺

— Rajesh S