如何在ACCESS中使用EXCEL函数ACOS

'要设置对 Microsoft Excel 对象库的引用，请执行下列步骤：
'在 Access 中，按 ALT+F11 切换到 Visual Basic 编辑器。
'在工具菜单上，单击引用。
'在引用框中，单击 Microsoft Excel 9.0 Object Library 复选框，然后单击确定。

Private Sub cmdCal_Click()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
Me.Text3.SetFocus
Me.Text3 = objExcel.WorksheetFunction.acos(Me.Text0)
objExcel.Quit
Set objExcel = Nothing
End Sub

点击下载此附件