运行时总提示“用户定义类型未定义”，请高手进去看看源码

Question

楼上说得对工程=>引用=>Microsoft Excel 9.0 Object Library 选中，确定即可

Answer 1

Dim xlApp As ExcelCtl.application 改为Dim xlApp As Excel.application

Answer 2

程序里有一些错误Dim i As Integer
Dim j As Integer'错误
'Dim xlApp As ExcelCtl.application
Dim xlApp As Excel.applicationDim xlbook As excel.workbook
Dim xlsheet As excel.worksheet'错误
'setxlapp = CreateObject("excel.application")
set xlapp = CreateObject("excel.application")xlApp.Visible = True'错误
'setxlbook = xlApp.workbooks.Add
set xlbook = xlApp.workbooks.AddOn Error Resume Next
Set xlbook = xlApp.workbooks.addopen("d:\text2.xls")
Set xlsheet = xlbook.worksheet(1)
xlsheet.Cells(6, 1) = "i"
For i = 0 To datagirdrow
DataGrid1.Row = i
For j = 0 To 6
DataGrid1.Col = j
If IsNull(DataGrid1.text) = False Then
xlsheet.Cells(i + 5, j + 1) = DataGrid1.text
End If
Next j
Next i
Exit Sub

Answer 3

我已经改过去了，现在能运行到EXCEL中去，但没有把DATAGRID1中的数据输到EXCEL中去？

Answer 4

啊，还有错啊~~~
Dim i As Integer
Dim j As Integer'错误
'Dim xlApp As ExcelCtl.application
Dim xlApp As Excel.applicationDim xlbook As excel.workbook
Dim xlsheet As excel.worksheet'错误
'setxlapp = CreateObject("excel.application")
set xlapp = CreateObject("excel.application")xlApp.Visible = True'错误
'setxlbook = xlApp.workbooks.Add
set xlbook = xlApp.workbooks.AddOn Error Resume Next
Set xlbook = xlApp.workbooks.addopen("d:\text2.xls")
Set xlsheet = xlbook.worksheet(1)
xlsheet.Cells(6, 1) = "i"
For i = 0 To datagirdrow '这个是DataGrid1的行数吗？
'错误
'DataGrid1.Row = i
    For j = 0 To 6
        DataGrid1.Row = i
        DataGrid1.Col = j
        If IsNull(DataGrid1.text) = False Then
           xlsheet.Cells(i + 5, j + 1) = DataGrid1.text
        End If
    Next j
Next i
Exit Sub

Answer 5

在最后加上这两句
xlApp.SaveWorkspace
xlApp.Quit

Answer 6

xlsheet.close true 也可以

Answer 7

按照两位说的方法，还是不能把DATAGRID1中的数据输到EXECL中去

Answer 8

datagridrow是显示出来有几行就几行，没有固定

Answer 9

这里有解决方案：http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813