Microsoft Excel 有⼀些 Microsoft Access 没有的函数，例如，统计函数和加载项函数。通过使⽤“⾃动化”功能，可以在access 中使⽤这些 Excel 函数。为此，先请设置对 Microsoft Excel 对象库的引⽤。
  要设置对 Microsoft Excel 对象库的引⽤，请执⾏下列步骤：
  1.在 access 中，按 ALT+F11 切换到 Visual Basic 编辑器。
  2.在⼯具菜单上，单击引⽤。
  3.在引⽤框中，单击Microsoft Excel 9.0 Object Library复选框，然后单击确定。
  设置引⽤后，可以使⽤“对象浏览器”查看所有Microsoft Excel的对象、属性和⽅法，包括通过Application对象可⽤的函数。
  以下两个⽰例程序中使⽤了 Microsoft Excel 的统计函数。
  备注：通过“⾃动化”功能打开 Excel 之后，Excel 不⾃动关闭。以下⽰例程序中使⽤Quit⽅法关闭 Excel。有关退出 Excel 的其它信息，请参见 Microsoft Knowledge Base 中的以下⽂章：
  Q210129 ACC2000：通过“⾃动化”功能运⾏的应⽤程序总是⽆法关闭
  ⽰例 1
  以下函数使⽤“⾃动化”功能调⽤ Excel 的 Median () 函数。数字组的⼀半在中值之下，⽽另⼀半则在中值之上。
  Sub xlMedian()
  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
visual basic pdf
  以下函数使⽤“⾃动化”功能调⽤ Excel 的 ChiInv () 函数，该函数返回卡⽅分布的倒数或单尾概率。
  Sub xlChiInv()
  Dim objExcel As Excel.Application
  Set objExcel = CreateObject("Excel.Application")
  MsgBox objExcel.Application.ChiInv(0.05, 10)
  objExcel.Quit
  Set objExcel = Nothing
  End Sub
  该函数在消息框中显⽰ 18.3070290368475。
  通过直接调⽤ Excel 引⽤可以简化代码：
  Sub xlChiInv()
  MsgBox Excel.Application.ChiInv(0.05, 10)
  End Sub
  备注：使⽤该语法时，Excel 将保留在内存中，直到重置代码或关闭数据库。
  使⽤加载项
  Excel 也使⽤加载项。这些程序包含⾃定义函数和命令。如果需要使⽤包含在加载项程序中的函数，请先打开加载项。以下⽰例使⽤LCM(Least Common Multiple) 函数：
  Sub xlAddin()
  Dim objExcel As Excel.Application
  Set objExcel = CreateObject("Excel.Application")
  ' Opens the add-in, which is in the Analysis folder of the
  ' Excel Library Directory.
  objExcel.workbooks.Open (objExcel.Application.librarypath & _
  "\Analysis\atpvbaen.xla")
  ' Runs the AutoOpen macro in the add-in
  objExcel.workbooks("atpvbaen.xla").RunAutoMacros (xlAutoOpen)
  MsgBox objExcel.Application.Run("atpvbaen.xla!lcm", 5, 2)
  objExcel.Quit
  Set objExcel = Nothing
  End Sub
  该函数在消息框中显⽰ 10。
  参考
  有关 Automation 的详细信息，在 Visual Basic 编辑器中，单击帮助菜单上的Microsoft Visual Basic 帮助，在“Office 助⼿”或“应答向导”中输⼊⾃动化，单击搜索查看相关的主题。
  有关“对象浏览器”的详细信息，请在 Visual Basic 编辑器中，单击帮助菜单上的Microsoft Visual Basic 帮助，并在“Office 助⼿”或“应答向导”中键⼊浏览器，然后单击搜索查看相关的主题。
  有关引⽤类型库的详细信息，请在 Visual Basic 编辑器中，单击帮助菜单上的Microsoft Visual Basic 帮助，并在“Office 助⼿”或“应答向导”中键⼊设置引⽤，然后单击搜索查看相关的主题。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。