none
請問底下vb2010 datagridview轉excel 的程式碼錯誤 出現如下錯誤訊息 RRS feed

  • 問題

  • 各位大大:

          請問底下vb2010 datagridview轉excel 的程式碼錯誤要如何改呢? 請高手指教

    程式碼如下:

    Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
            MyExcel.Application.Workbooks.Add()
            MyExcel.Visible = True

            '获取标题
            Dim Cols As Integer
            For Cols = 1 To DT1.Columns.Count
                MyExcel.Cells(1, Cols) = DT1.Columns(Cols - 1).HeaderText
            Next
            '往excel表里添加<strong>数据</strong>()
            Dim i As Integer
            For i = 0 To DT1.RowCount - 1
                Dim j As Integer
                For j = 0 To DT1.ColumnCount - 1
                    If Me.DT1(j, i).Value Is System.DBNull.Value Then
                        MyExcel.Cells(i + 2, j + 1) = ""
                    Else
                        MyExcel.Cells(i + 2, j + 1) = DT1(j, i).Value.ToString
                    End If
                Next j
            Next i

    可以匯出資料但是會出現如下錯誤請高手指教

    謝謝

    錯誤畫面


    • 已編輯 MichaelTsai10 2014年12月26日 上午 06:54 表達問題
    2014年12月26日 上午 06:50

解答

所有回覆