將參數從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