[讨论]关于Excel报表单位格公式的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]关于Excel报表单位格公式的问题

共有18918人关注过本帖树形打印复制链接主题：[讨论]关于Excel报表单位格公式的问题

lxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/22 9:41:00 [显示全部帖子]

引用下面这个dll

下载信息 [文件大小：下载次数： ]
点击浏览该文件:microsoft.office.interop.excel.rar

Microsoft.Office.Interop.Excel.Worksheet.Calculate()方法可以重算工作表

lxl

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/22 11:17:00 [显示全部帖子]

以下是引用菜鸟foxtable在2009-12-22 11:01:00的发言：

图片点击可在新窗口打开查看好东西，赶紧收藏。。

L版找个时间教教咱们如何写DLL吧？

[此贴子已经被作者于2009-12-22 11:02:10编辑过]

呵呵，这个dll不是我写的，是微软提供的
里面有很多有用的类，可以容易、精确的控制EXCEL
比如禁止复制、粘贴，添加保护密码等等

lxl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/22 11:24:00 [显示全部帖子]

以下是引用舜风在2009-12-22 11:12:00的发言：

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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/22 11:54:00 [显示全部帖子]

以下是引用reachtone在2009-12-22 11:49:00的发言：
这个好，收藏了！
另请教lxl版主，能不能根据excel的指定区域数据自动生成分析图呢？一直想认真研究一下vba，但实在是抽不出时间。
foxtable的图表控件无法完成标示数据的拖拽，很是头疼啊。
如果象8楼的代码一样，也可以执行一个方法就能自动选定区域、并生成图表就厉害了！

用录制宏功能：
手动操作一遍，就能把刚才的操作用代码记录下来。比如下面的宏代码就是录制的

Sub Macro1()
'
' Macro1 Macro
' 宏由 user 录制，时间: 2009-12-22
'

'
    Range("A8:B11").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A8:B11")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

然后稍作修改就成了可用的代码了

lxl

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/22 12:08:00 [显示全部帖子]

以下是引用舜风在2009-12-22 11:51:00的发言：

好似我操作不对？

问：已生成报表文件中的函数公式已经不存在，现再次打开并 mSheet.Calculate() 应该不成立吧

[此贴子已经被作者于2009-12-22 11:51:50编辑过]

恩 Build之后函数公式不存在，就比较麻烦
可以用代码设置列公式，我也没仔细研究过

下一主题 >> << 上一主题

主题：[讨论]关于Excel报表单位格公式的问题