如何从MicrosoftAccess内调用Excel函数

Microsoft Excel有一些Microsoft Access没有的功能，比如统计功能和加载项功能。通过使用自动化功能，可以在access中使用这些Excel函数。为此，请先设置对Microsoft Excel对象库的引用。

要设置对Microsoft Excel对象库的引用，请按照下列步骤操作:

1 .在access中，按ALT+F11切换到Visual Basic编辑器。
2。在“工具”菜单上，单击“引用”。
3。在“引用”框中，单击“Microsoft Excel 9.0对象库”复选框，然后单击“确定”。

设置引用后，您可以使用对象浏览器查看所有Microsoft Excel对象、属性和方法，包括通过Application对象可用的函数。

下面两个示例程序中使用了Microsoft Excel的统计函数。

注意:通过“自动化”功能打开Excel后，Excel不会自动关闭。在下面的示例程序中使用了Quit方法来关闭Excel。有关退出Excel的其它信息，请参考Microsoft知识库中的以下文章:

Q210129 ACC2000:通过“自动化”功能运行的应用程序总是无法关闭。

示例1

以下函数使用“自动化”函数调用Excel的Median()函数。一半的数字低于中位数，另一半高于中位数。
Sub XL median()
Dim objExcel As Excel。application
Set objExcel = CreateObject(" Excel。application ")
MsgBox objExcel。Application.Median(1，2，5，8，12，13)
objExcel。quit
Set objExcel = Nothing
End Sub

该函数在消息框中显示6.5。

示例2

以下函数使用“automation”函数调用Excel的ChiInv()函数，该函数返回卡方分布的倒数或单尾概率。
Sub XL chi inv()
Dim obj Excel As Excel。application
Set objExcel = CreateObject(" Excel。application ")
MsgBox objExcel。Application.ChiInv(0.05，10)
objExcel。quit
Set objExcel = Nothing
End Sub

这个函数在一个消息框中显示18。18960 . 688888886867

可以通过直接调用Excel引用来简化代码:
sub XL chi inv()
msgboxexcel . application . chi inv(0.05，10)
end sub

注意:使用此语法时，Excel将一直保留在内存中，直到代码被重置或数据库被关闭。

使用加载项

Excel也使用加载宏。这些程序包含自定义函数和命令。如果您需要使用加载项程序中包含的功能，请先打开加载项。以下示例使用LCM(最小公倍数)函数:
sub XL addin()
dimobjecel as excel . application
setobjecel = createobject(" excel . application ")

打开位于
' Excel库目录的Analysis文件夹中的外接程序。
objExcel . workbooks . open(objExcel。application . library path & _
" \ Analysis \ atpvbaen . xla ")

运行外接程序
objexcel . workbooks(" atpvbaen . xla ")中的AutoOpen宏。RunAutoMacros(xlAutoOpen)
MsgBox objExcel。Application.Run("atpvbaen.xla！lcm "，5，2)
objExcel。quit
Set objExcel = Nothing
End Sub

该函数在消息框中显示10。

涉及

有关自动化的详细信息，请在Visual Basic编辑器中，单击“帮助”菜单上的“Microsoft Visual Basic帮助”,在“Office助手”或“应答向导”中输入Automation，然后单击“搜索”以查看相关主题。

有关对象浏览器的详细信息，请在Visual Basic编辑器中，单击“帮助”菜单上的“Microsoft Visual Basic帮助”,在Office助手或应答向导中键入浏览器，然后单击“搜索”以查看相关主题。

有关引用类型库的更多信息，请在Visual Basic编辑器中，单击“帮助”菜单上的“Microsoft Visual Basic帮助”,在“Office助手”或“应答向导”中键入“设置引用”,然后单击“搜索”以查看相关主题。