在outlook 中打开excel 并运行宏

Function MakeVBR(vbrBook As String)
   
    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application
   
    xlApp.Visible = True
    Dim xlBook As Workbook
    Set xlBook = xlApp.Workbooks.Open(vbrBook)
   
   
   
    xlApp.Workbooks.Open ("D:/alick/Mcro/Alick/Alick02.xlam")
   
    xlApp.Run ("Alick02.xlam!MyVBR1")
    xlBook.SaveAs xlBook.Path & "/VBR of " & Left(xlBook.Name, Len(xlBook.Name) - 3) & CStr(Format(Date, "YYYYMMDD")) & ".00.xls"
   
    xlApp.Quit
   
   
   
 
   
End Function