'用以下代码可以完美实现跨表取数及所有excel公式的自动计算:
Dim path As String = "d:\合并报表.xls"
Dim path1 As String = "d:\合并报表模板.xls"
Dim Book As New XLS.Book(path1) '打开模板
Dim Sheet12 As XLS.Sheet = Book.Sheets("静兰") '测试数据
Sheet12(32, 3).value=888 '测试数据,Sheet12(32, 3)表示表12的第33行第4列
Sheet12(35, 6).value=999 '测试数据,Sheet12(35, 6)表示表12的第36行第7列
Book.Save(path)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(path)
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
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = (path)
Proc.Start()
整理了一下，作为经典代码
加好友 
发短信
Post By：2013/11/18 10:45:00 [显示全部帖子]
