执行set ex=New Excel.Application 出现错误430,急！

Question

执行set ex=New Excel.Application
出现：
实时错误'430'
类不支持自动化或不支持期望的接口网上查了一下，关于这个错误都是什么数据库调用时，或者程序安装到98的机子上出错还有我已经引用了Microsoft execl 11.0 Object Library

Answer 1

这样看看 
   Dim ex As Excel.Application    Set ex = CreateObject("Excel.Application")

Answer 2

可能是什么DLL文件版本不对，什么的，我重装VB也还是一样。不知道哪个文件有问题。

Answer 3

请你试一下以下代码
Private Sub Form_Load()
Dim objExl As Excel.Application '声明对象变量
  Me.MousePointer = 11 '改变鼠标样式
  Set objExl = New Excel.Application '初始化对象变量
  objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
  objExl.Workbooks.Add '增加一个工作薄
objExl.Visible = True
End Sub

Answer 4

请试一下如下代码
Private Sub Form_Load()
Dim objExl As Excel.Application '声明对象变量
  Me.MousePointer = 11 '改变鼠标样式
  Set objExl = New Excel.Application '初始化对象变量
  objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
  objExl.Workbooks.Add '增加一个工作薄
objExl.Visible = True
End Sub

Answer 5

请试下如下代码
Private Sub Form_Load()
Dim objExl As Excel.Application '声明对象变量
  Me.MousePointer = 11 '改变鼠标样式
  Set objExl = New Excel.Application '初始化对象变量
  objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
  objExl.Workbooks.Add '增加一个工作薄
objExl.Visible = True
End Sub

Answer 6

请试下如下代码
Private Sub Form_Load()
Dim objExl As Excel.Application '声明对象变量
  Me.MousePointer = 11 '改变鼠标样式
  Set objExl = New Excel.Application '初始化对象变量
  objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
  objExl.Workbooks.Add '增加一个工作薄
objExl.Visible = True
End Sub

Answer 7

1 装 Office 97 并引用它的库。
2 在 Win98 下打包。

Answer 8

dim ex as Object
set ex=CreateObject("Excel.Application")或者
dim ex as new Excel.Application

Answer 9

出现这种情况,一般是DLL版本不对造成的,你可以把你所引用的版本一块打包发布出去.
  
*****************************************************************************
我希望有一天我能用鼠标双击我的钱包，然后选中我仅有的一张100元大钞，按住ctrl+c，接着不停地ctrl+v

Answer 10

出现这种情况,一般是DLL版本不对造成的检查下，然后换一个低级的版本试试看

Answer 11

dim ex as Object 
set ex=CreateObject("Excel.Application") 正确为什么？？

Answer 12

还没有解决？office2003重装了吗？

Answer 13

是不是安装过几个不同版本的Excel?
set ex=New Excel.Application 是对Microsoft execl 11.0 Object Library的直接引用，有可能这个版本是存在问题的。
而set ex=CreateObject("Excel.Application")是创建一个Excel对象的实例，是跟具体版本没有关系的，有可能你用这句代码创建的Excel版本并不是11.0