Outlook VBA Open Excel - PullRequest
Новая
       25

Outlook VBA Open Excel

1 голос
/ 23 февраля 2011

Я пытаюсь открыть существующий лист Excel из Outlook. Я вижу открытую рабочую книгу, а затем она снова немедленно закрывается. У меня установлено приложение 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. Я хочу оставить файл открытым, как только он откроется.

1 Ответ

1 голос
/ 23 февраля 2011

Я понял это.Я открывал другую книгу и затем закрывал ее, прежде чем пытаться открыть вторую, и это мешало ей.Чтобы исправить это, я оставил приложение Excel открытым и сбросил объект рабочей книги на новую рабочую книгу, которую я хотел.

...