Сохраните текстовый файл из Excel как PDF через VBA

Question

Итак, я получил проект, работающий с открытием .dotx и вставкой значений из файла Excel и сохранением в формате .docx. Но я не могу на всю жизнь заставить его сохранить в формате .pdf. Ну, я могу, но PDF не может быть открыт.

Sub Cost_Statement()

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = False
Application.ScreenUpdating = True

TemplateLocation = "C:\Custom documents\Cost_statement.dotx"

Set wrdDoc = wrdApp.Documents.Add(TemplateLocation, False, , False)

On Error GoTo NextNumber

cellno = "Main!C19"
FindText2 = "<<EXCELCOST>>"
ReplacementText2 = Range(cellno).Value
wrdDoc.Content.Find.Execute FindText2, ReplaceWith:=ReplacementText2, Replace:=wdReplaceAll

cellno = "Main!C20"
FindText3 = "<<EXCELDEST>>"
ReplacementText3 = Range(cellno).Value
wrdDoc.Content.Find.Execute FindText3, ReplaceWith:=ReplacementText3, Replace:=wdReplaceAll

NextNumber:

FileAddress = Range("Main!C21").Text
FileAddress = "C:\Cost Statement pdfs\" & FileAddress & ".docx"

With wrdDoc

.SaveAs (FileAddress)
.Close

End With

wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing

End Sub

Любая помощь будет оценена.

Answer 1

Вы пробовали таким образом?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\PathPDF.pdf"

также обратите внимание, что

FileAddress = Range("Main!C21").Text
FileAddress = "C:\Cost Statement pdfs\" & FileAddress & ".docx"

совпадает с

FileAddress = "C:\Cost Statement pdfs\" & FileAddress & ".docx"