以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Excel报表出错:值不在预期的范围内  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58788)

--  作者:黄训良
--  发布时间:2014/10/23 20:14:00
--  [求助]Excel报表出错:值不在预期的范围内

用下面的代码生成Excel报表出现错误

Dim Book As New XLS.Book(ProjectPath & "Attachments\\收文明细.xls")
Dim Sheet As XLS.Sheet

Book.Build()
Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle()
style.WordWrap = True    \'自动换行

Book.Save(ProjectPath & "reports\\test2.xls")

Dim tmp As String =  ProjectPath & "reports\\test2.xls"
Dim rpt As String = ProjectPath & "Reports\\test2.pdf"
Dim Book1 As New XLS.Book(tmp)
Book1.Build()
Book1.SaveToPDF(rpt) \'保存为pdf文件

Dim Proc As New Process
Proc.File = ProjectPath & "reports\\test1.pdf"
Proc.Start()

出现下面的错误:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:excel报表错误.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-10-23 20:23:52编辑过]

--  作者:有点甜
--  发布时间:2014/10/23 20:17:00
--  

 你删除这句代码看看 Book.SaveToPDF(ProjectPath & "reports\\test1.xls")

 

 有可能是你的office不支持,必须是office2007以上的版本才能用这个方法。而且2007版本还要做一个插件。


--  作者:黄训良
--  发布时间:2014/10/23 20:23:00
--  
请问老师:2007版本还要做一个什么插件?
--  作者:有点甜
--  发布时间:2014/10/23 20:25:00
--  

http://www.microsoft.com/zh-cn/download/details.aspx?id=7

 


--  作者:黄训良
--  发布时间:2014/10/23 20:30:00
--  
谢谢老师,就是SaveAsPDFandXPS插件没有的问题,帮助中应该写上!