VB导出Excel文件时出错提示“ActiveX 部件不能创建对象”

发布网友

我来回答

共3个回答

热心网友

出现此问题的原因为：组件的附件文件丢失，权限不足。

解决的方法和详细的操作步骤如下：

1、第一步，出现报错，见下图，转到下面的步骤。

2、第二步，执行完上面的操作之后，找到安装包，在环境文件夹中找到“msxml.msi”文件，然后双击运行该文件，见下图，转到下面的步骤。

3、第三步，执行完上面的操作之后，安装并点击“next”按钮，见下图，转到下面的步骤。

4、第四步，执行完上面的操作之后，接受许可，然后单击“next”按钮，见下图，转到下面的步骤。

5、第五步，执行完上面的操作之后，输入用户名和组织，然后单击“next”按钮，见下图，转到下面的步骤。

6、第六步，执行完上面的操作之后，单击“finish”按钮完成安装，见下图，转到下面的步骤。

7、第七步，执行完上面的操作之后，导出文件就不会报错了，见下图。这样，就解决了这个问题了。

热心网友

开始-运行-dcomcnfg
组件服务-计算机-我的电脑-DCOM配置
找到Microsoft Excel Application，右键属性-安全-三个选项都选 自定义，然后在用户里添加everyone，给全部权限

热心网友

Option Explicit
Dim xlapp As Variant
Dim xlBook As Variant
Dim xlSheet As Variant

Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.worksheets(1)
End Sub