通過vba將excel中的word文件另存為pdf

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"