主题：代码

因为3楼的代码改为EXCEL的代码会快很多，不用open打开节省很多时间，但要使到公式生效因而出现8楼的情况？

 请上传例子啊，你永远都是这样提问题，别人不知道怎么答你。

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 '测试数据

Dim i,N As Integer

N= Book.Sheets.Count

For i=1 To N

Dim sheet As XLS.Sheet = Book.Sheets (i)

sheet.UsedRange.Formula = sheet.UsedRange.Formula

 Next

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

Dim Proc As New Process

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

Proc.Start()

红色的代码是否生效？

 不能，Book.Sheets 没有这种功能

有没有办法做到？

 没有

因为book不用打开就能生成数据，而wb必须打开才能生效，不用打开可以节省很多时间。

 无论是book还是wb，都是要打开才能操作的啊。没你说的什么节省时间。

编制单位：**市**公司                                                                                                      2015年04月30日                                                                                  会企01表  金额单位：元 Dim dat As Date Dim mm As Integer Dim c As Date = vars("cc") Dim y As Integer = c.year Dim m As Integer = c.month Dim d As Integer = c.Day

Dim s As String = y & "年" & m & "月" & d & "日"
    If str.Contains(s) = True Then

 无语，你问问题能不具体一点啊。