Как сохранить Excel из Office 365, когда у меня установлен Office 2013?

Question

Мы используем Office 2013, а не Office 365. При запуске Excel из кода я получаю диалоговые окна для входа в Office 365 и т. Д. Это останавливает мой код.

Можно ли запустить Excel Office 2013 из кода?

Dim xlWorkBook As Excel.Workbook = Nothing

xlApp = New Excel.Application

Answer 1

В вашем коде отсутствует оператор Set для xlApp, а также оператор Dim, если у вас активирован Option Explicit.Вам не нужно объявлять рабочую книгу как ничего, когда вы тускнеете ... это будет ничто, пока вы не передадите ей объект.

ОБНОВЛЕНИЕ: Я изменил код, чтобы проверить версию установленного Excel и только продолжитьесли это Excel 2013

Sub test()

Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook


Application.DisplayAlerts = False 'Turn off notifications

Set xlApp = New Excel.Application
'Only continue w/ code if it is version 15 (2013) else close app again
If xlApp.Version = 15 Then
    'Do stuff...
Else
    xlApp.Quit
    Set xlApp = Nothing
End If

Application.DisplayAlerts = True

End Sub