Outlook VBA 打开 excel

Question

我正在尝试从 Outlook 打开现有的 Excel 表。 我可以看到工作簿打开，然后它立即再次关闭。 我将 Excel.Application 设置为可见。 有任何想法吗？ 这是代码。

Function openNewForm(toDoSubject)
    MsgBox ("Called")
    Dim xlApp As Object
    Dim sourceWB As Workbook
    Dim sourceSH As Worksheet

    Set xlApp = CreateObject("Excel.Application")

    With xlApp
        .Visible = True
        .EnableEvents = False
    End With


    strFile = "C:\Users\Peter\Documents\ASI\OrderSystem\NewOrderSheet.xlsm"

    Set sourceWB = Workbooks.Open(strFile, , False, , , , , , , True)
    Set sourceSH = sourceWB.Worksheets("OrderForm")
    sourceWB.Activate
End Function

此代码再次在 Outlook 中运行。 我想在打开文件后保持打开状态。

Answer 1

我想通了。 我正在打开一个不同的工作簿，然后在我尝试打开第二个工作簿之前关闭它，这会干扰它。 为了解决这个问题，我保持 excel 应用程序打开并将工作簿对象重置为我想要的新工作簿。