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 应用程序打开并将工作簿对象重置为我想要的新工作簿。