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

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

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

2 ответа2

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, иначе ваш скрипт потерпит неудачу

-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. Путь к файлу и имя доступны для редактирования.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .