标题：[讨论]关于Excel报表单位格公式的问题
此主题相关图片如下：未命名.jpg
Excel报表是否能实现单元格之间用 =SUM(B2:C2) 或 =B2+E7+B11+D19 这样的表内公式？如何实现呢？
如在一张A3纸大的人事报表，往往需要几十个不同的统计数代码，而代码间也还需很多连续与非连续的数据需要累加，所以想到如果能实现表中自设公式，将简化很多繁琐的代码设置与调试。
此主题相关图片如下：未命名.jpg
Excel报表是否能实现单元格之间用 =SUM(B2:C2) 或 =B2+E7+B11+D19 这样的表内公式？如何实现呢？
如在一张A3纸大的人事报表，往往需要几十个不同的统计数代码，而代码间也还需很多连续与非连续的数据需要累加，所以想到如果能实现表中自设公式，将简化很多繁琐的代码设置与调试。
所有在狐表生成的报表中,excel原有的函数公式都不能运用.只能在狐表中计算好了,导出.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:microsoft.office.interop.excel.rar |
Microsoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表
以下是引用lxl在2009-12-22 9:41:00的发言：引用下面这个dll
| 下载信息 [文件大小：216.6 KB 下载次数：0] | |
 点击浏览该文件:microsoft.office.interop.excel.rar |
Microsoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表
好东西，赶紧收藏。。
L版找个时间教教咱们如何写DLL吧？
引用下面这个dll
| 下载信息 [文件大小：216.6 KB 下载次数：0] | |
 点击浏览该文件:microsoft.office.interop.excel.rar |
icrosoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表
L版：引用是否在保存文件代码前加入，就可以？
好东西，赶紧收藏。。
L版找个时间教教咱们如何写DLL吧？
呵呵，这个dll不是我写的，是微软提供的
里面有很多有用的类，可以容易、精确的控制EXCEL
比如禁止复制、粘贴，添加保护密码等等
L版：引用是否在保存文件代码前加入，就可以？
把文件复制到foxtable目录下，
管理项目→外部引用→浏览→选中这个dll→添加
点命名空间选项卡→输入命名空间“Microsoft.Office.Interop.Excel”→输入自己的别名，如:mExcel
下面就可以根据情况写代码了。比如
Dim mApp As New mExcel.Application
Dim mBook As mExcel.Workbook = mApp.Workbooks.Open(ProjectPath & "reports\" & Name & ".xls")
Dim mSheet As mExcel.Worksheet = mBook.Sheets.Item(1)
mSheet.Calculate()
mBook.Save()
mApp.Visible = True
另请教lxl版主，能不能根据excel的指定区域数据自动生成分析图呢？一直想认真研究一下vba，但实在是抽不出时间。
foxtable的图表控件无法完成标示数据的拖拽，很是头疼啊。
如果象8楼的代码一样，也可以执行一个方法就能自动选定区域、并生成图表就厉害了！
把文件复制到foxtable目录下，
管理项目→外部引用→浏览→选中这个dll→添加
点命名空间选项卡→输入命名空间“Microsoft.Office.Interop.Excel”→输入自己的别名，如:mExcel
下面就可以根据情况写代码了。比如
Dim mApp As New mExcel.Application
Dim mBook As mExcel.Workbook = mApp.Workbooks.Open(ProjectPath & "reports\" & Name & ".xls")
Dim mSheet As mExcel.Worksheet = mBook.Sheets.Item(1)
mSheet.Calculate()
mBook.Save()
mApp.Visible = True
好似我操作不对？
问：已生成报表文件中的函数公式已经不存在，现再次打开并 mSheet.Calculate() 应该不成立吧