调用Excel里的分析工具库出错,无法调用宏?调用宏速度慢?

bbsArmor 2012-09-21 12:57:28
目的是想要用C#实现 http://soft.zdnet.com.cn/software_zone/2007/1209/676186.shtml 这篇文章里的自动统计效果,需要事先起用加载项的里的分析工具库。

由于不知从何入手,于是开启Excel的录制宏,执行了一遍分析工具库里的直方图功能,得到如下宏代码:(为了得到最干净的代码,所有数据相关操作已经提前做好,仅录制纯直方图功能操作的代码)

Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$D$2:$D$19761" _
), ActiveSheet.Range("$F$1"), ActiveSheet.Range("$E$2:$E$42"), True, False _
, True, True
ActiveSheet.Shapes("Chart 1").ScaleWidth 2.6328125, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Chart 1").ScaleHeight 2.5080213904, msoFalse, _
msoScaleFromTopLeft

(后面两句是因为直方图太小,调整了下大小,还没测试C#代码)

由此得知,此直方图功能是调用了Excel自带的一个ATPVBAEN.XLAM宏文件。

于是我的C#代码如此写到:

ExcelApp.AddIns["Analysis ToolPak - VBA"].Installed = true;
ExcelApp.AddIns["Analysis ToolPak"].Installed = true;
ExcelApp.Run("C:\\Program Files\\Microsoft Office\\Office14\\Library\\Analysis\\ATPVBAEN.XLAM!Histogram", SheetDestination.Range["D1"].EntireColumn, SheetDestination.Range["$F$1"], SheetDestination.Range["E1"].EntireColumn, false, false, true, true);

结果提示:
System.Runtime.InteropServices.COMException was unhandled
Cannot run the macro 'C:\Program Files\Microsoft Office\Office14\Library\Analysis\ATPVBAEN.XLAM!Histogram'. The macro may not be available in this workbook or all macros may be disabled.
我已经在excel里起用所有宏,而且把excel文件都另存为xlsm了,还是如此提示

抱着试一试的心态,我把ATPVBAEN.XLAM文件放到debug目录里,并将代码改成
ExcelApp.Run("ATPVBAEN.XLAM!Histogram", SheetDestination.Range["D1"].EntireColumn, SheetDestination.Range["$F$1"], SheetDestination.Range["E1"].EntireColumn, false, false, true, true);直接从相对目录调用

这次居然成功了。可是问题是,开始Run这个宏的时候,Excel就假死,速度巨慢,我掐了下表,30秒左右才出来直方图结果。为什么会这样?我直接在菜单里按这个直方图命令是一秒钟就出结果的啊?
...全文
318 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
【更新至2025年】2001-2025年上市公司数字化转型年报词频统计(吴非、赵宸宇、甄红线)(300+年报词频统计) 1、时间:2001-2025年 2、来源:上市公司年报 3、参考文献:企业数字化转型与资本市场表现——来自股票流动性的经验证据(吴非) 数字化转型如何影响企业全要素生产率(赵宸宇) 知识产权行政保护与企业数字化转型(甄红线) 4、方法说明:(1)参考吴非老师的做法,对人工智能技术、大数据技术、云计算技术、区块链技术、数字技术运用五个维度76个数字化相关词频进行统计 (2)参考赵宸宇老师的做法,对数字技术应用、互联网商业模式、智能制造、现代信息系统四个维度99个数字化相关词频进行统计 (3)参考甄红线老师的做法,对技术分类、组织赋能、数字化应用等类别下139个数字化相关词频进行统计 5、指标:年份、股票代码、公司简称、行业名称、行业代码、全文-文本总长度、仅中英文-文本总长度、人工智能技术-吴、大数据技术-吴、云计算技术-吴、区块链技术-吴、数字技术运用-吴、数字技术应用-赵、互联网商业模式-赵、智能制造-赵、现代信息系统-赵、技术分类-人工智能技术-甄、技术分类-区块链技术-甄、技术分类-云计算技术-甄、技术分类-大数据技术-甄、组织赋能-人工智能技术-甄、组织赋能-云计算技术-甄、组织赋能-大数据技术-甄、组织赋能-广义数字技术-甄、数字化应用-技术创新-甄、数字化应用-流程创新-甄、数字化应用-业务创新-甄、人工智能、商业智能、图像理解、投资决策辅助系统、智能数据分析、智能机器人、机器学习、深度学习、语义搜索、生物识别技术、人脸识别、语音识别、身份验证、自动驾驶、自然语言处理、大数据、数据挖掘、文本挖掘、数据可视化、异构数据、征信、增强现实、混合现实、虚拟现实、云计算、流计算、图计算、内存计算、多方安全计算、类脑计算、绿色计算、认知计算等300+词频

111,131

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • Creator Browser
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

让您成为最强悍的C#开发者

试试用AI创作助手写篇文章吧