通过vba将excel中的word文件另存为pdf

因此，我让项目打开.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

Sub Cost_Statement（）
Dim wrdApp作为Word.Application
Dim wrdDoc作为Word.Document
作为整数的Dim i
Set wrdApp=CreateObject（“Word.Application”）
wrdApp.Visible=False
Application.ScreenUpdating=True
TemplateLocation=“C:\Custom documents\Cost\u statement.dotx”
设置wrdDoc=wrdApp.Documents.Add（TemplateLocation，False，False）
错误转到下一个编号
cellno=“Main！C19”
FindText2=“”
ReplacementText2=范围（cellno）.Value
wrdDoc.Content.Find.Execute FindText2，ReplaceWith:=ReplacementText2，Replace:=wdReplaceAll
cellno=“Main！C20”
FindText3=“”
ReplacementText3=范围（cellno）.Value
wrdDoc.Content.Find.Execute FindText3，ReplaceWith:=ReplacementText3，Replace:=wdReplaceAll
下一个编号：
FileAddress=范围（“Main！C21”）。文本
FileAddress=“C:\Cost Statement pdfs\”和FileAddress&“.docx”
与wrdDoc
.SaveAs（文件地址）
.结束
以
好的，退出
设置wrdDoc=Nothing
设置wrdApp=Nothing
端接头

任何帮助都将不胜感激。

你试过这种方法吗

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"

---

我想他的意思也和：

FileAddress=“C:\Cost Statement pdfs\”和Range（“Main！C21”）.Text&“.docx”