CreateObject for Excel：正常运行有效，以管理员身份运行'；T

错误是

“ActiveX组件无法创建对象”

以管理员身份运行时，在第

CreateObject

行，否则将成功运行

错误仅适用于office365

Option Explicit

Private Sub Command1_Click()
On Error GoTo Command1_Click_EH
Dim objXL As Object
Dim wbXL As Object

' ***************

Set objXL = CreateObject("Excel.Application")

' ***************

objXL.ScreenUpdating = False 
Set wbXL = objXL.Workbooks.Add
objXL.Visible = True

Exit Sub

Command1_Click_EH:
MsgBox Err.Description
End Sub

---

您是否从管理员帐户手动运行Excel？@Gserg是的，它工作了？您是否从管理员帐户手动运行Excel？@Gserg是的，它工作了

version 1906 
Build 11727.2044 Microsoft store
Monthly Channel