安裝Office 2013時如何從Office 365阻止Excel？

Question

我們使用Office 2013而不是Office365。從代碼啟動excel時，我得到用於Office 365登錄等的對話框。這將停止我的代碼。

是否可以從代碼啟動Excel Office 2013？

Dim xlWorkBook As Excel.Workbook = Nothing

xlApp = New Excel.Application

Answer 1

如果激活了Option Explicit則代碼將缺少xlApp的Set語句和Dim語句。 昏暗時，您不需要將工作簿聲明為空...在給它一個對象之前，它不會為空。

更新：我更改了代碼以檢查已安裝的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