Question

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

我用VB+Access做了一个信息管理系统，在系统中添加一键导出Excel文件时出现了错误，每当运行到“Set xExcel = New Excel.Application”时，系统就会提示说“ActiveX 部件不能创建对象”。
我去网上搜了答案，都不能解决这个问题。
网上说出现这个问题主要有两个原因：
1、部件——引用中没有引用Microsoft Excel 11.0 Object Library
2、没有安装Excel
而我的机器上这两个原因都排除了，错误仍然存在。
希望大家给出一些解决的方法或建议，谢谢。

Answer 1

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

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

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

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

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

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

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

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

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

Answer 2

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

Answer 3

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