Синтаксическая ошибка в макросе 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, но я вижу синтаксическую ошибку.

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

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

Заметка,

  1. При необходимости измените ссылки на ячейки.
  2. Путь к файлу & amp; Имя редактируемое.
Rajesh S
источник
Так почему бы вам не дать ответ, который адаптирован к этому вопросу?
DavidPostill
@DavidPostill, спасибо, что подняли хороший вопрос, не могли бы вы помочь мне, где я сделал ошибку, чтобы я мог редактировать пост. Поскольку я написал в OP, что метод использования 2-х диапазонов неверен в комментариях выше, я предлагаю полный код VBA OP для завершения работы. ☺
Rajesh S