请问能否应用到xls模板打印中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

能否把“复杂excel报表跨表取数及公式自动计算的完美解决办法“（http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42596）

例子应用到普通XLS模板打印中：

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单模板.xls")
Dim fl As String = ProjectPath & "Reports\订单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

论坛例子：

Dim Book As New XLS.Book("d:\合并报表模板.xls") '打开模板

Dim Sheet12 As XLS.Sheet = Book.Sheets("静兰") '测试数据

Sheet12(32, 3).value=888 ' 测试数据

Sheet12(35, 6).value=999 '测试数据

Book.Save( "d:\合并报表.xls" )

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open( "d:\合并报表.xls" )

Dim i,N As Integer

N=Wb.WorkSheets.Count

For i=1 To N

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)

ws.UsedRange.Formula = ws.UsedRange.Formula

wb.save

wb.close

App.Quit

Dim Proc As New Process

Proc.File = ( "d:\合并报表.xls" )

Proc.Start()

下载信息 [文件大小：下载次数： ]
点击浏览该文件:xls公式计算.rar

[此贴子已经被作者于2019/5/26 9:38:14编辑过]

参考代码

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单模板.xls")
Dim fl As String = ProjectPath & "Reports\订单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim i,N As Integer
N=Wb.WorkSheets.Count
For i=1 To N
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)
ws.UsedRange.Formula = ws.UsedRange.Formula
Next
app.visible = True

存在二个问题:

1.生成的XLS文件没有自动筛选功能.

2.程序能不打开XLS文件

我测试没问题。如果报错，请贴出出错提示。

生成的XLS文件数据是对的,且能按模板格式显示,

存在二个问题:

1.生成的XLS文件没有自动筛选功能,模板文件设置了自动筛选..

2.代码能否改成只生成XLS文件,不打开XLS文件?

1、我测试也没有问题

2、app.visible = True

改为

Wb.save

App.quit

对于第一个问题,我试了几遍,点生成的XLS自动筛选符号,都没反应.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:订单.xls

我这边打开文档没有问题。

那就是您系统office的问题了。是不是安装了wps？卸载掉

确实装了WPS,现在卸载了WPS还是不行.明天我用单位电脑试试

以下是引用明天的灵在2019/5/27 23:17:00的发言：
确实装了WPS,现在卸载了WPS还是不行.明天我用单位电脑试试

如果还不行，请卸载重新安装ms office，我们这边测试都没问题的。

主题：请问能否应用到xls模板打印中