Экспорт книги Excel в PDF с использованием VBA - PullRequest
Новая
       69

Экспорт книги Excel в PDF с использованием VBA

1 голос
/ 16 марта 2020

Я пытаюсь помочь маме удаленно с ее проблемой: ей нужно сохранить рабочую книгу в формате xlsx и PDF. Вот мой код: 

Sub sb_Copy_Save_ActiveSheet_As_Workbook()

Dim wksht As Worksheet
Set wksht = ActiveSheet

Dim path As String
path = "C:\Users\" & Environ$("Username") & "\Company Name\Company Name Team Site - Documents\PO Numbers\"

    wksht.Copy
    ActiveWorkbook.SaveAs Filename:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".xlsx"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".pdf" Quality:=xlQualityStandard OpenAfterPublish:=True

End Sub

Мы работали до такой степени, что она может сохранить файл xlsx в указанном пути к файлу, но попытка экспортировать его как PDF не работает. Она говорит, что у нее синтаксическая ошибка, но, поскольку я сам не в состоянии превзойти себя, я не могу ее проверить. Я посмотрел на несколько похожих вопросов, но не могу найти ответ.

Заранее большое спасибо

1 Ответ

1 голос
/ 16 марта 2020

вам просто нужно добавить запятые, чтобы 

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".pdf" Quality:=xlQualityStandard OpenAfterPublish:=True

стало 

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=path & wksht.Range("G1") & " " & wksht.Range("F1").Value & ".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=True
...