在下面代码中如何把保存好的“结算清单”生成PDF?

Dim Book As New XLS.Book(ProjectPath & "Attachments\\通用结算清单.xls")
Dim f2 As String =SpecialFolder.DesktopDirectory  & "\\" & Date.Today() & "结算清单.pdf"
Dim fl As String =SpecialFolder.DesktopDirectory  & "\\" & Date.Today() & "结算清单.xls"
Book.Build()
Book.Save(fl) \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Rg = Ws.Range("B:B")

Rg.EntireRow.AutoFit
rg .WrapText =True \'引用单个单元格
App.Visible = False

wb.save

App.Quit
MessageBox.Show("结算清单已经生成,请到桌面打开!", "提示")

vba另存为pdf代码参考

Dim App As New MSExcel.Application
try  
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
    \'创建Excel文件对应的PDF文件
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "d:\\test.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    app.quit
catch ex As exception
    app.quit
End try

老师帮忙看看下列代码有什么问题？后半部分调整EXCEl格式的代码执行完后提示“代码文档未保存”，如何解决？

Dim Book As New XLS.Book(ProjectPath & "Attachments\\通用结算清单.xls")
Dim fl As String =SpecialFolder.DesktopDirectory  & "\\" & Date.Today() & "结算清单.xls"
Dim f2 As String =SpecialFolder.DesktopDirectory  & "\\" & Date.Today() & "结算清单.pdf"
Book.Build()\'生成细节区
Book.Save(fl) \'把生成完细节区的EXCEL保存

\'以下代码是把生成excel再打开设置其格式及样式
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Rg = Ws.Range("B:B")
Rg.EntireRow.AutoFit \'自动调整行宽
rg .WrapText =True \'引用单个单元格
App.Visible = True
wb.saveas(fl)
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, f2, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
App.Quit
catch ex As exception
app.quit
End try

App.Visible = True
wb.saveas(fl)

改成

wb.save

 例子发上来，代码不可能有问题。

我觉得也没有问题，其他的模板都可以正常执行，唯独这个部是报错。

我自己做的例子好使啊，郁闷在这，难道跟模板有关？