将参数从 Outlook 传递到 Excel

Question

如何将参数传递给从 Outlook 调用的 Excel VBA 代码？

Answer 1

通过使用Application.Run：

objExcel.Run "MacroName", param1, param2

Answer 2

您可以通过 Application.Run 方法执行宏。此方法将宏名称作为第一个参数，然后将最多 30 个参数作为参数传递给宏。

在 Outlook 中，使用以下代码：

Public Sub RunExcelMacro()

  Dim excelApp As Object

  Set excelApp = CreateObject("Excel.Application")
  excelApp.Visible = True

  ' open the workbook that contains the macro
  ' or place the macro in a workbook in your XLSTARTUP folder
  excelApp.Workbooks.Open "C:\tmp\book.xls"

  ' run the macro
  excelApp.Run "ThisWorkbook.SayHello", "Hello World!"

  excelApp.Quit

  Set excelApp = Nothing      

End Sub

在 Excel 中，将以下方法添加到电子表格文档的 ThisWorkbook 元素：

Option Explicit

Public Sub SayHello(message As String)

    MsgBox message

End Sub