主题：如何保存成PDF

在下面代码中如何把保存好的“结算清单”生成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

改了还是错。执行完上面代码后直接弹出窗口问是否保存， 点击是的时候就出现“文档未保存”

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

 

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

 例子，请发上来......

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

 那你就用那个不行的模板做例子。