Question

在VB中，往EXCLE里面写数据的时候出现错误429，说ActiveX部件不能创建对像，是怎么回事？

代码如下：
Option Explicit
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Private Sub Command1_Click()
Dim i As Integer

Set xlapp = CreateObject("Excel.Application") '定义xlapp的应用类型
Set xlbook = xlapp.Workbooks.Add '创建新的excel工作簿
Set xlsheet = xlbook.Worksheets("sheet1") '设定活动的工作页面

xlsheet.Cells(1, 1) = "姓名"
xlsheet.Cells(1, 2) = "学号"
xlsheet.Cells(1, 3) = "班级"

当运行到
Set xlapp = CreateObject("Excel.Application") '定义xlapp的应用类型
这一句的时候出错
错误为
错误429，ActiveX部件不能创建对像
哪位高手知道怎么回事吗？
另外，在工程中引用了如下对像：
Microsoft excle 12.0 object library
microsoft activex data objects 2.6 library
microsoft dao 3.6 object library
我的EXCEL 是2007的
我也按照网上所说的方面在运行那里输入命令进行注册也不行，所以说高手指点！

Answer 1

CreateObject这种方法创建的对象 是不需要引用什么的 直接一个空白工程 都可以创建这个对象
你的代码没啥问题
如果你在win7系统下运行的话 你可以试试打开VB右键以管理员运行

追问

你好，感谢你的回答，我的电脑是XP系统的，如果代码没问题那会是哪里的问题呢？

追答

那你卸载掉excel 重装 安装的时候 有一个选项是 本地运行所有 你选哪个安装模式

Answer 2

SAExcelRCW.dll