一个别人做的软件，本来好的，但是最近想修改的时候出现一个问题，一各表里有几个未定义类型，生成就出错了，谁能帮忙看看。

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim excelApp1 As New Excel.Application
        Dim excelBook1 As Excel.Workbook = excelApp1.Workbooks.Add
        Dim excelWorksheet1 As Excel.Worksheet = CType(excelBook1.Worksheets(1), Excel.Worksheet)

        With excelWorksheet1
            .Columns().ColumnWidth = 15
            For i As Integer = 0 To mytable7.Columns.Count - 1
                .Range(Chr(Asc("A") + i) & "1").Value = mytable7.Columns(i).ColumnName
            Next
            Dim onerow As DataRow
            For i As Integer = 0 To mytable7.Rows.Count - 1
                For j As Integer = 0 To mytable7.Columns.Count - 1
                    .Range((Chr(Asc("A") + j) & i + 2)).Value = "'" + mytable7.Rows(i).Item(j).tostring
                Next
            Next
            excelApp1.Visible = True

        End With
    End Sub
End Class


红色为未定义类型，谁知道麻烦跟帖下。

检查你电脑上是不是安装了 office 2003 ，如果没错的话，重构一下工程试试。

就是新建一个工程，重新引用 excel ，然后把模块、窗体等文件，一个一个的添加进去试试。

引用Excel相关的类型库Microsoft Excel *** Object Library 。

谁能帮我改下，我把小程序发给你。

这个这个  引用--工程   选项是在那里的

谁回复我下啊

楼主还没有弄清楚VB6与呢。从你顶楼发的贴子看，代码是在环境下编写的哦。
VB6引用EXCEL对象正如楼上所说。
下引用EXCEL，见下图：