Comentarios en: Exportar un Datagrid a Excel

Por: 6 años después

6 años después — Mon, 06 Dec 2010 22:28:26 +0000

[...] pasado ya 6 años desde que escribimos nuestro primer post. El blog nació por el interés de compartir lo poco que sabíamos. Todavía tenemos ese mismo [...]

Por: Esther

Esther — Wed, 05 Aug 2009 22:06:06 +0000

Hola a todos alguien podria ayudarme, estoy exportando a un libro de excel pero necesito que el primer resultado que me genera un SP caiga en la primer Hoja, el siguiente resultado en la hoja2...
Alguien sabe como??? :S Esto es lo que estoy haciendo la primera vez si se ejecuta pero en la segunda se queda bloqueado.

Dim Excel As Object
Dim Libro As Object
Dim Hoja1 As Object
Dim Hoja2 As Object
Dim Hoja3 As Object

Excel = CreateObject("Excel.Application")
Libro = Excel.Workbooks.Add

For i = 1 To 3

clssG.Concilia = i
GeneraRep()

Sub GeneraRep() 'Genera por cada reporte una Hoja

Dim col As Integer
Dim row As Integer

clssV.sql = "dbo.spCC_CONC_GeneraReportes"
clssV.DsGrid = clssG.GeneraDataSetSP(clssV.sql, 4)

Select Case clssG.Concilia

Case 1
Hoja1 = Libro.Worksheets(1)

Dim i As Integer = 1
For col = 0 To clssV.DsGrid.Tables(0).Columns.Count - 1
Hoja1.cells(1, i).value = clssV.DsGrid.Tables(0).Columns(col).ColumnName
Hoja1.cells(1, i).EntireRow.Font.Bold = True
i += 1
Next

i = 2

Dim k As Integer = 1
For col = 0 To clssV.DsGrid.Tables(0).Columns.Count - 1
i = 2
For row = 0 To clssV.DsGrid.Tables(0).Rows.Count - 1
Hoja1.Cells(i, k).Value = clssV.DsGrid.Tables(0).Rows(row).ItemArray(col)
i += 1
Next
k += 1
Next
Case 2

Hoja2 = Libro.Worksheets(2)

Dim i As Integer = 1
For col = 0 To clssV.DsGrid.Tables(0).Columns.Count - 1
Hoja2.cells(1, i).value = clssV.DsGrid.Tables(0).Columns(col).ColumnName
Hoja2.cells(1, i).EntireRow.Font.Bold = True
i += 1
Next

i = 2

Dim k As Integer = 1
For col = 0 To clssV.DsGrid.Tables(0).Columns.Count - 1
i = 2
For row = 0 To clssV.DsGrid.Tables(0).Rows.Count - 1
Hoja2.Cells(i, k).Value = clssV.DsGrid.Tables(0).Rows(row).ItemArray(col)
i += 1
Next
k += 1
Next

Case 3

Hoja3 = Libro.Worksheets(3)

Dim i As Integer = 1
For col = 0 To clssV.DsGrid.Tables(0).Columns.Count - 1
Hoja3.cells(1, i).value = clssV.DsGrid.Tables(0).Columns(col).ColumnName
Hoja3.cells(1, i).EntireRow.Font.Bold = True
i += 1
Next

i = 2

Dim k As Integer = 1
For col = 0 To clssV.DsGrid.Tables(0).Columns.Count - 1
i = 2
For row = 0 To clssV.DsGrid.Tables(0).Rows.Count - 1
Hoja3.Cells(i, k).Value = clssV.DsGrid.Tables(0).Rows(row).ItemArray(col)
i += 1
Next
k += 1
Next

End Select

If clssG.Concilia = 3 Then
Libro.SaveAs("C:\ExcelData\File_Exported.xls")
' oQryTable = Nothing

Hoja1 = Nothing
Hoja2 = Nothing
Hoja3 = Nothing
Libro = Nothing
Excel.Quit()
End If
End Sub

Por: Tony

Tony — Fri, 17 Jul 2009 16:01:11 +0000

Y exportar de un MsFlexgrid como sería?

Por: pelosnecios

pelosnecios — Mon, 02 Feb 2009 20:34:24 +0000

jajajajaj
todos a mi me la pelan
bola de pendejos

Por: xochitl

xochitl — Sun, 30 Nov 2008 21:06:10 +0000

idiotaz

Por: xochitl

xochitl — Sun, 30 Nov 2008 21:05:27 +0000

por que son tan inutilez

Por: Segundo

Segundo — Thu, 27 Nov 2008 16:19:55 +0000

en un datagrid quiero dejar una columna para buscar y consultar una tabla de producto, tengo la consulta como la engancho a la columna del datagrid, si alquien pueda ayudarme, desde ya muchas gracias. ss_ulloaj@yahoo.es

Por: webmaster

webmaster — Wed, 26 Nov 2008 17:23:25 +0000

Como puedo hacer para exportar a pdf?

Por: CEYLA CANTA Q

CEYLA CANTA Q — Thu, 11 Sep 2008 20:34:59 +0000

TENGO PROBLEMAS CON EL PROGRAMA EXCEL 2003 ESCRIBO 25 Y CUANDO DOY ENTER SALE 18 Y CUANDO ESCRIBO 18 ME SALE 25 QUE FUE LO QUE PASO

Por: M oliva

M oliva — Wed, 10 Sep 2008 19:22:04 +0000

Gracias! me sirvio de mucho la implementación de la hoja de estilo. Ahora estoy batallando con el formato de las columnas. Un dato como "08015644646546" lo exporta a excel como 8015644646546, se que se ha de poder.

Saludos!!!!!!!