vb引用 Excel时出现的怪问题:变量使用了一个Visual Basic不支持的自动化类型！！！！

Question

在引用中已经添加了引用: Microsoft Excel 8.0 Object Library并在代码中做了如下的声明及操作，可是会出现如下的错误：变量使用了一个Visual Basic不支持的自动化类型我以前也是这样用的。不知现在为什么不行了。！！！！！！Dim a As Excel.Application
Dim b As Excel.WorkbooksSet a = New Excel.Application
Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 1

在引用中已经添加了引用: Microsoft Excel 8.0 Object Library
并在代码中做了如下的声明及操作，可是会出现如下的错误：
变量使用了一个Visual Basic不支持的自动化类型
我以前也是这样用的。不知现在为什么不行了。
Dim a As Excel.Application
Dim b As Excel.Workbooks
Set a = New Excel.Application
Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 2

变量使用了一个Visual Basic不支持的自动化类型我以前也是这样用的。不知现在为什么不行。Dim a As Excel.Application
Dim b As Excel.Workbooks
Set a = New Excel.Application
Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 3

Dim a As Excel.Application
Dim b As Excel.Workbooks
Set a = New Excel.Application
Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 4

Dim a As Excel.Application
Dim b As Excel.Workbook
Set a = New Excel.Application
Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 5

Set a = New Excel.ApplicationSet b = a.Workbooks.Open("c:\aaa.xls")

Answer 6

Dim a As Excel.Application
Dim b As Excel.Workbook
Set a = CreateObject("Excel.Application")
Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 7

我已经装了Excel,这句就过不去Set a = New Excel.ApplicationSet .

Answer 8

试试这样Dim a As Excel.Application
Dim b As Excel.WorkbookSet a = CreateObject("Excel.Application")Set b = a.Workbooks.Open("c:\aaa.xls")

Answer 9

把
Set a = New Excel.Application改成
Set a = CreateObject("Excel.Application")试试。另外，你的Excel是什么版本的？

Answer 10

把Set a = New Excel.Application怎么样啊？

Answer 11

问题解决了，重新安装OFFICE2000后就可以了不知为什么？

Answer 12

好象是这个DLL文件的问题，
OLEAUT32.DLL
重新覆盖并注册就可以了，
你试试看。
[email protected]

Answer 13

装的Excel版本冲突了吧，你试试用：Set a = New [_ExcelApplication]