从 Access VBA 运行 Excel 函数

Question

我有一个 excel 命令按钮，它只是将一张纸的内容复制到另一张纸上。 我正在尝试从访问中运行此命令。 我没有收到错误消息，但是当我从 access 运行代码时，信息不会复制到 excel 中。 代码如下。 有任何想法吗？

'

Private Sub Command92_Click()
 Dim x2 As Object
 Dim GetDBPath As String
 GetDBPath = CurrentProject.Path & "\" & "Reports.xlsm"

Set x2 = CreateObject("Excel.Application")

x2.Workbooks.Open (GetDBPath)

x2.Visible = True

x2.Run CommandButton1_Click
x2.ActiveWorkbook.Close (True)

x2.Quit

Set x2 = Nothing


End Sub'

Answer 1

Run 将要运行的例程的名称作为字符串。 您还需要在调用中包含工作表的代码名称：

x2.AutomationSecurity = msoAutomationSecurityLow
x2.Run "Sheet1.CommandButton1_Click"

例如。