如何使用自动化与分析工具库创建 Excel 直方图

本文通过一个Visual Basic项目实例,详细介绍了如何利用分析工具库(ATP)生成Excel直方图。步骤包括添加Excel对象库引用、启动Excel、填充数据、设置直方图的输入和bin范围,以及调用ATP的Histogram函数创建直方图。此外,还提到了清理和关闭Excel的相关操作。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

本文提供了一个 Visual Basic 项目示例,该示例演示了如何使用分析工具库 (ATP) 生成直方图。本文还介绍了一些基本技术,使用这些技术可以实现并使用分析工具库外接程序库,以及具有自动化功能的分析工具库 Visual Basic for Applications (VBA) 模板外接程序。


     在 Visual Basic 中创建一个新的标准 EXE 项目。默认情况下,会创建 Form1。 向 Form1 中添加一个命令按钮。 在项目菜单中,选择引用,然后选择 Microsoft Excel 对象库。请注意,对象库版本会因您系统中安装的 Microsoft Office 版本而异。 将以下代码添加到 Command1_Click 事件中:

''' This project requires project references to
''' The Excel object library - e.g. Excel9.olb or Excel8.olb

Dim oXl As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRange As Excel.Range
Dim oAddIn As Excel.AddIn

'Launch Excel and make it visible
Set oXl = CreateObject("Excel.application")
oXl.Visible = True
Set oBook = oXl.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)

' Add the Excel Analysis ToolPak library
oXl.AddIns.Add FileName:=oXl.LibraryPath & "\analysis\analys32.xll"
Set oAddIn = oXl.AddIns.Item("Analysis ToolPak")

' Register all the Analysis ToolPak functions
'  See Microsoft Knowledge Base Article 213489
oXl.RegisterXLL "Analys32.xll"

' Add the Excel Analysis ToolPak - VBA AddIn -
'  it's the Automation interface to the Analysis ToolPak library
' Now open the .xla so that you can run its Auto_Open macro now, and others later.
' See Microsoft Knowledge Base article 213489
oXl.Workbooks.Open oXl.LibraryPath & "\analysis\atpvbaen.xla"
oXl.Workbooks("atpvbaen.xla").RunAutoMacros 1

' Fill the worksheet with some data
' Create and fill the Input Range - See Microsoft Knowledge Base
' Article 141684 or 214269
Set oRange = oSheet.Cells(1, 1)
oRange.value = "87"
Set oRange = oSheet.Cell

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值