从Outlook宏自动打开后无法调用Excel宏

Question

我从Outlook写了一个宏来打开Excel。

代码下方：

Public Sub OpenMasterPM()
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xExcelRange As Excel.Range
    xExcelFile = "C:\Users\andrea.vighetti\Documents\Banca5\Evolutive\Master PM_prova.xlsm"
    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xWs.Activate
    xExcelApp.Visible = True     
End Sub

之后，Excel是打开的，我在Excel上有一个Auto_Open宏，我希望在该页面打开时启动，但这不起作用。

似乎Excel上写的自动打开宏不会启动Excel从Outlook宏开始打开时，在Excel上的vba代码下面：

Sub Auto_open()

    Sheets("Evolutive TFS").Select
    ActiveWorkbook.RefreshAll
    Sheets("Gantt").Select
    ActiveSheet.ListObjects("Gantt").Range.AutoFilter Field:=3, Criteria1:="=Implementation", Operator:=xlOr, Criteria2:="=Test"

End Sub

Answer 1

1. 而不是Auto_open使用Workbook.Open Event因为Auto_open已经过时了。 把它放入ThisWorkbook而不是模块！
2. 你可能会从阅读How to avoid using Select in Excel VBA中受益。

   Private Sub Workbook_Open()
       Sheets("Evolutive TFS").RefreshAll
       Sheets("Gantt").ListObjects("Gantt").Range.AutoFilter Field:=3, Criteria1:="=Implementation", Operator:=xlOr, Criteria2:="=Test"
   End Sub

3. 还要确保在Excel的信任中心中为文件位置启用了宏，或者对文件进行了数字签名。否则，Excel安全性可能会阻止宏执行。 见Enable or disable macros in Office files。