Outlook VBA 打开 excel答案

【问题标题】：Outlook VBA open excelOutlook VBA 打开 excel
【发布时间】：2011-07-02 22:49:50
【问题描述】：

我正在尝试从 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 中运行。我想在文件打开后保持打开状态。

【问题讨论】：

我刚刚在 Outlook 中尝试了这个确切的代码，它可以很好地打开 Excel 并保持打开状态（Office 2007）。我在即时窗口中调用了该函数，也许在调用宏以中断它的地方还有其他事情发生？
奇怪的是令人沮丧。我想不出什么会打断它。我将代码放入它自己的模块中，我仍然遇到同样的问题。有什么想法吗？
为什么这是Function？将其更改为Sub。
见stackoverflow.com/questions/28970516/…

标签： excel vba outlook excel-2007 outlook-2007

【解决方案1】：

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

【讨论】：

如果您有问题的答案，请将其标记为答案，即使您自己回答了 :)