我现在又出现了一个问题啦！

我的代码是这样。在我电脑上运行没有问题，到别的电脑上时，就说什么office版本不对啦！不能安装程序啦！
Try
            
            '给excel表格填写值()
            Dim myexcel As New Microsoft.Office.Interop.Excel.Application
            myexcel.Workbooks.Open("cement.xls")

            myexcel.Cells(3, 9).value = TextBox4.Text
                        myexcel.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("excel")
            For Each proc As System.Diagnostics.Process In pList
                'Try
                '    proc.Kill()
                'Catch ex As Exception
                '    MsgBox(ex.Message)
                'End Try
            Next

        End Try

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call outExecl()
    End Sub
    Private Sub outExecl()
        Call KillExcel()
        Dim i, j, k As Integer
        Dim xlApp As New Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim intCount As Integer
        xlApp = CreateObject("Excel.Application")

        xlBook = xlApp.Workbooks.Open(Application.StartupPath & "\a.xls")

        xlSheet = xlBook.Worksheets(1)
        xlApp.Visible = False
        xlSheet.Activate()
   
        Dim rowindex1 As Integer = 3
        Dim colindex1 As Integer
        Dim col1 As DataColumn
        Dim row1 As DataRow
        Dim nxh1 As Integer = 1

        For Each col1 In Table.Columns '表頭
            colindex1 = colindex1 + 1
            xlApp.Cells(4, colindex1) = col1.ColumnName '獲取列名字
        Next
        For Each row1 In CType(DataGrid1.DataSource, DataTable).Rows '樣本數據
            colindex1 = 1
            For Each col1 In CType(DataGrid1.DataSource, DataTable).Columns
                xlApp.Cells(rowindex1, colindex1) = RTrim(Convert.ToString(row1(col1.ColumnName)))
                colindex1 += 1
            Next
            rowindex1 += 1

        Next
        xlApp.Visible = False
        xlBook.Save()
        xlApp.Quit()
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing

        MsgBox("保存成功！")

    End Sub
    Private Sub KillExcel()
        Dim pProcess() As Process
        pProcess = Process.GetProcesses()
        Dim i As Integer
        For i = 0 To pProcess.Length() - 1
            If (pProcess(i).ProcessName = "EXCEL") Then
                pProcess(i).Kill()
            End If
        Next

    End Sub
這個將datagrid裡面的數據導出excel！自己去看看

我的代码里面Dim xlApp As New Excel.Application这一句必须是
Dim myexcel As New Microsoft.Office.Interop.Excel.Application
要不然VB2005就会报错！那是怎么会事啊？？