本文提供了一个 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