目的是想要用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秒左右才出来直方图结果。为什么会这样?我直接在菜单里按这个直方图命令是一秒钟就出结果的啊?