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 應用程序打開並將工作簿對象重置為我想要的新工作簿。