Exportar DatagridView a xls de Excel

[Krato]

Hola a todos. Estoy teniendo un problema con un datagridview generado dinámicamente.

Quiero exportarlo a excel para despues cargarlo con CristalResports.

Pero a la hora de crear el libro de excel me da error.

He hechop la referencia a crosoft.Office.Interop.Excel

Y lo exporto de la siguiente manera:

Código ASP:

If n_Filas = 0 Then
            MsgBox("No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas ") : Exit Sub
        Else
 
            ' -- Crear nueva instancia de Excel  
            excel = New Microsoft.Office.Interop.Excel.Application
 
           'Aquí me de el error!!!
            wBook = excel.Workbooks.Add()
            wSheet = wBook.ActiveSheet()
 
 
            Dim iCol As Integer = 0
            For i = 0 To DG.Columns.Count - 1
                If DG.Columns(i).Visible Then
 
                    iCol = iCol + 1 
                    wSheet.Cells(1, iCol) = DG.Columns(i).HeaderText
                End If
            Next
 
            For i = 0 To DG.Rows.Count - 1
                iCol = iCol + 1
                For j = 0 To DG.Columns.Count - 1
                    wSheet.Cells(j + 2, iCol) = DG.Rows(i).Cells(j).Value
                Next
            Next
 
            wSheet.Columns.AutoFit()
            Dim strFileName As String = "D:\ss.xls"
            Dim blnFileOpen As Boolean = False
            Try
                Dim fileTemp As System.IO.FileStream = System.IO.File.OpenWrite(strFileName)
                fileTemp.Close()
            Catch ex As Exception
                blnFileOpen = False
            End Try
 
            If System.IO.File.Exists(strFileName) Then
                System.IO.File.Delete(strFileName)
            End If
 
            wBook.SaveAs(strFileName)
            excel.Workbooks.Open(strFileName)
            excel.Visible = True
        End If
 

'Aquí me de el error!!!

wBook = excel.Workbooks.Add()


Gracias!

[Krato]

Nadie sabe como hacerlo?

[atak]

Hola Krato

tengo el ejemplo en CSharp
si puede ayudarte .. en hora buena.


Link


Saludos

[Darkavender]

Esta es la funcion que yop uso...

ojala te sirva

Private Sub BtnExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExcel.Click


ExportaExcel(DtGrdClientes, "exportedData", ".xls", _
My.Computer.FileSystem.SpecialDirectories.Desktop)
End Sub

Private Declare Function ShellEx Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Integer, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer


Private Sub ExportaExcel(ByVal grdView As DataGridView, ByVal fileName As String, _
ByVal fileExtension As String, ByVal filePath As String)
fileExtension = ".xls"
fileName = "ClientesGCA-" & Hour(Now()) & Minute(Now()) & Second(Now())

' Choose the path, name, and extension for the Excel file
Dim myFile As String = "DocExcel\" & fileName & fileExtension

' Open the file and write the headers
Dim fs As New IO.StreamWriter(myFile, False)
fs.WriteLine("<?xml version=""1.0""?>")
fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")

' Create the styles for the worksheet
fs.WriteLine(" <ss:Styles>")
' Style for the column headers
fs.WriteLine(" <ss:Style ss:ID=""1"">")
fs.WriteLine(" <ss:Font ss:Bold=""1""/>")
fs.WriteLine(" <ss:Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" " & _
"ss:WrapText=""1""/>")
fs.WriteLine(" <ss:Interior ss:Color=""#C0C0C0"" ss:Pattern=""Solid""/>")
fs.WriteLine(" </ss:Style>")
' Style for the column information
fs.WriteLine(" <ss:Style ss:ID=""2"">")
fs.WriteLine(" <ss:Alignment ss:Vertical=""Center"" ss:WrapText=""1""/>")
fs.WriteLine(" </ss:Style>")
fs.WriteLine(" </ss:Styles>")

' Write the worksheet contents
fs.WriteLine("<ss:Worksheet ss:Name=""Sheet1"">")
fs.WriteLine(" <ss:Table>")
For i As Integer = 0 To grdView.Columns.Count - 1
fs.WriteLine(String.Format(" <ss:Column ss:Width=""{0}""/>", _
grdView.Columns.Item(i).Width))
Next
fs.WriteLine(" <ss:Row>")
For i As Integer = 0 To grdView.Columns.Count - 1
fs.WriteLine(String.Format(" <ss:Cell ss:StyleID=""1"">" & _
"<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
grdView.Columns.Item(i).HeaderText))
Next
fs.WriteLine(" </ss:Row>")

' Check for an empty row at the end due to Adding allowed on the DataGridView
Dim subtractBy As Integer, cellText As String
If grdView.AllowUserToAddRows = True Then subtractBy = 2 Else subtractBy = 1
' Write contents for each cell
For i As Integer = 0 To grdView.RowCount - subtractBy
fs.WriteLine(String.Format(" <ss:Row ss:Height=""{0}"">", _
grdView.Rows(i).Height))
For intCol As Integer = 0 To grdView.Columns.Count - 1
cellText = grdView.Item(intCol, i).Value
' Check for null cell and change it to empty to avoid error
If cellText = vbNullString Then cellText = ""
fs.WriteLine(String.Format(" <ss:Cell ss:StyleID=""2"">" & _
"<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
cellText.ToString))
Next
fs.WriteLine(" </ss:Row>")
Next

' Close up the document
fs.WriteLine(" </ss:Table>")
fs.WriteLine("</ss:Worksheet>")
fs.WriteLine("</ss:Workbook>")
fs.Close()

' Open the file in Microsoft Excel
' 10 = SW_SHOWDEFAULT
ShellEx(Me.Handle, "Open", myFile, "", "", 10)
End Sub

[Geovanny0401]

hola

yo tengo un codigo en vb .net si te sirve me avisas para q lo pruebes

[gnzsoloyo]

Hola a todos. Estoy teniendo un problema con un datagridview generado dinámicamente.

Quiero exportarlo a excel para despues cargarlo con CristalResports.

Pero a la hora de crear el libro de excel me da error.

He hechop la referencia a Microsoft.Office.Interop.Excel

Y lo exporto de la siguiente manera:

El problema es a qué versión de Office vas a exportar.
Si usas Office 2000 ó 2003, no deberías tener problemas con tu código. Pero si usas Office 2007, los formatos y los objetos son incompatibles...
La solución de Darkavender sería la mejor, porque lo que hace es generar un XML que si puede ser entendido por las tres versiones de Office.

Por otro lado, otro problema es qué versión de VS estés usando...