求助：懂用VB调用EXCLE的进来帮个忙，万分感激！！

Question

我编译下面代码
Public Excelobj As excel.Application
Public Wordbook1 As Word.Document
Public WSheet1 As Worksheet
Public WSheet2 As Worksheet
Public Chobj As Chart
Dim i&, j&, k&, st&, m&
Dim CarType As Integer
时提示第一行user defined type not defined,要怎么才能弄好啊，请教各位VB程序员。

Answer 1

没有引用EXCEL的库吧，要先引用EXCEL9.0库

Answer 2

是啊，添加引用。
把Public Wordbook1 As Word.Document改为
Public Wordbook1 As Workbooks

Answer 3

楼上的意思是
Public Excelobj As excel
Public Wordbook1 As Workbooks
Public Excelobj As excel.Application
Public Wordbook1 As Word.Document
Public WSheet1 As Worksheet
Public WSheet2 As Worksheet
Public Chobj As Chart
Dim i&, j&, k&, st&, m&
Dim CarType As Integer
吗？还是不行啊……

Answer 4

你是调用excel还是Word
把这一句Public Wordbook1 As Word.Document去掉。。

Answer 5

Dim i&, j&, k&, st&, m& ？？？
这句是打错了，还是。
调用Excel必须先应用Excel Library
然后如下声明和调用：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorksheetIf xlApp Is Nothing Then
        Set xlApp = CreateObject("Excel.Application")
End If   
Set xlBook = xlApp.Application.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)

Answer 6

工程应用中加上microsoft excel liberal9.0

Answer 7

你所编译的机子上有没有安装OFFICE啊！如果你根本没有安装就不可以调用的！

Answer 8

有两中方法：
（1）不用引用连接库
     dim eapp as object
     dim ewb as object
     set eapp=createobject("escel.application")
     set ewb=eapp.workbooks.add
 （2）引用excel 9.0
     dim eapp as new excel.application
     dim ewb as new excel.workbook
以后怎么做就都明白了
但是无论使用哪种方法都要在已经安装了office的前提下