Foxtable(狐表)用户栏目专家坐堂 → [求助]Excel报表保存为PDF,第一列保存不了,也不能显示?


  共有3779人关注过本帖树形打印复制链接

主题:[求助]Excel报表保存为PDF,第一列保存不了,也不能显示?

帅哥哟,离线,有人找我吗?
刘海屋
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:73 积分:594 威望:0 精华:0 注册:2014/9/20 22:13:00
如何消除“是否保存”的询问框?  发帖心情 Post By:2015/1/9 14:49:00 [显示全部帖子]

采用下面的方案将Excel转成PDF并显示到webBrowser:

 

Dim wbr As WinForm.WebBrowser = Forms(Args(0)).Controls("WebBrowser1")
Dim tbx As WinForm.TextBox = Forms(Args(0)).Controls("TextBox1")

Dim tm As String = ProjectPath & "Attachments\v_2VW BREST CARAVELLE 2014.xls"
tbx.Text = tm

Dim fl As String = ProjectPath & "Reports\v_2VW BREST CARAVELLE 2014.pdf"

Dim App As New MSExcel.Application
try  
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(tm)
    '创建Excel文件对应的PDF文件
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, fl, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    wbr.Address = fl
    app.quit
catch ex As exception
    app.quit
End try

 

老出现:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:捕获错误.jpg
图片点击可在新窗口打开查看

 

不希望出现此框,有何办法? 谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
刘海屋
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:73 积分:594 威望:0 精华:0 注册:2014/9/20 22:13:00
已解决如下  发帖心情 Post By:2015/1/9 15:06:00 [显示全部帖子]

已解决如下:

 

在wb.ExportAsFixedFormat()之前加上:

 

wb.saved = True

 

谢谢。

 


 回到顶部