En caso de que en una columna del datagrid tipo string tengamos un valor como este 0003223 que representa un codigo de articulo por ejemplo, a exportar a excel guarda el valor 3223, lo cual no es correcto ya que esta referencia pertenece a otro arículo. Este ejemplo este fallo no lo tiene en cuenta

este ejempo muy interesante

si el objeto que tenemos en el datagrid es un dataview......y queremos mandar a Excel solo las filas que muestra el datagrid (no todas las filas del dataview...porque para llegar a datagrid, llega filtrado).

Gracias.

Excelente aplicación
estoy empezando en esto de la programación y el visual basic.net, es uno
de los lenguajes que me han llamado la atención, junto al C#.net y el Java
pero este visual basic si que me ha sosrprendido,
Gracias por el ejemplo

Muy bueno tu ejemplo, pero lo quize aplicar en un proyecto aspx, pero no pude hacerlo, aca en la empresa hicieron un codigo basado en html para exportar a excell, pero quisiera hacerlo igual que tu ejemplo, he probado pero la libreria Microsoft.Office.Interop no esta disponible en asp .net, espero me puedas ayudar mi msn es javica18@hotmail.com o javica18@gmail.com gracias

Con Office 2003 no me funciona, cuando llega a la linea

Dim Wb As Excel.Workbook = Exc.ActiveWorkbook

Exc.ActiveWorkbook es Nothing, ¿Alguien sabe como se puede solucionar?

Hola.
Tengo rpobleams con la linea:
Exc.Workbooks.OpenText(pFileName, , , ,Excel.XlTextQualifier.xlTextQualifierNone, , True)
y ademas se me dañó el Office, especialmete Excel cuando lo abro me sale un error de compilación y alude a WorrkBook. Le agradeceria mucho a alguien que me saque de este apuro

lo voy a probaro por que yo necesito mucho esta herramienta y pues creo que si va a funcionar

para poder usarlo con office xp o superior deben usar las librerias que se suministran en el ejemplo.

habria que revisar si los problemas que reportan son de seguridad, ya que este ejemplo ha sido probadoen muchos sistemas que se utilizan actualmente.

Este ejemplo no deberia dañar ninguna funcionalidad del Office, no es posible ya que no altera ninguna configuracion interna, solamente lo invoca a la hora de mostrar los reportes.

Quisera saber como hacer, usando un formulario colocar los datos de los cuadro de texto en las hojas de excel uno debajo de otro sin necesidad de hacer lo siguiente range("a1").value=textbox1.text

Muy bueno tu ejemplo, pero en caso de que quisiera exportar datos a varios worksheets como lo haria??. Yo lo hice pero abriendo varios excel.application y despues el contenido de los worksheets cortandolos y luego pegandolos. E tratado de ver otra forma, ya que esta no la veo optima. Me podrias ayudar?

Solo muestra las 65536 primeras filas, si el dataset tiene mas no lo muestra entero, como se podría hacer para que no haya limite de filas

es muy buen ejemplo . de verdad me sirvio de mucho.. les recomiendo q ejecuten el ejemplo y luego lo analizen.. es mejor q ponerse a copiar codigo.... lo van aentender mejor...

no me funciona el excel 2003 me salen errores que no encuentra el archivo Configuración.xls y me dice que tampoco encuentra otros archivos mas

FALTO COLOCAR LAS REFERENCIAS DE LAS BIBLIOTECAS A USAR O IMPORTAR... A MI ME DA ERROR Y NO HALLO COMO LLAMAR A LA BIBLIOTECA NI A QUE HACER REFERENCIA... TOMAR EN CUENTA ESTO PARA PROXIMA ENTREGA!

ESTA MUY BUENO ESTE EJEMPLO, PERO NO FUNCIONA CON EL DATASET, DESCARGUE EL FICHERO LO CAMBIE POR EL QUE TIENES AQUI, Y AUN ASI NO FUNCIONA, NO SE PERMITE
dt = CType(Me.dgDatos.DataSource, DataSet).Tables(0)

se puede crear y manipular macros en excell desde vb .net??? si alguien me puede ayudar con eso, lo agradeceria mucho

En vb.net 2.0 no me funciona. Sabe alguien como hacer para que funcione?

esta bueno pero como lo uso en office 2007 y salen errores en docuemnts.slsx,and.xlsx,y otros mas ayudenme porfavor respondan lo necesito urgentemente

Yo lo trabaje con Office 2007 y ya no me salen los errores, lo que hice fue, desactivar la linea ''File.Delete(pFileName) en la función TextToExcel y cree una variable nombre solicitando el nombre del archivo así:

Nombre = InputBox("Ingrese el nombre del archivo:", "Guardar Archivo", "C:\")
If Nombre <> "" Then
Exc.ActiveWorkbook.SaveAs(Nombre, Excel.XlTextQualifier.xlTextQualifierNone - 1)
End If

Y la linea p.Start("Excel.exe", Nombre) queda así.

Espero les funcione y muchas gracias por el código anterior, mi correo es c.mesa@primocel.com.co......

El exportar a Excel ya me quedo. Lo agradezco. Mi inquietud en este momento es como puedo manipular el color de las celdas.
Es decir, si en mi Grid tengo un color particular por cada renglón, como puedo lograr rellenar el mismo color de celda al exportar los registros a Excel.

Gracias.

buen día!
mi nombre es nohemi y soy nueva en el mundo de la programación
busco como exportar un datagrid a excel.lenguaje c# framework 1.1
alguien me puede dar un tip para realizar esta aplicación web.
muchas gracias, saludos y hasta pronto
nlayja@hotmail.com

hola, lo estuve probando, es bueno, pero cuando lo ejecuto, me sale un aserie de mensajes de ruta, que al final no sale nada, pero buscando en el archivo temp se encuentra ahi, como hago para poder mostrarlo sin necesidad de estar buscandolo; despues de todo ya es un avance.

Hola, excelente ejemplo, lo descargue y ejecute tal cual, pero al ejecutarlo me sale un error que dice:

Error de QueryInterface para la interfaz Microsoft.Office.Interop.Excel.Range.

Me pueden ayudar? Gracias

trabajar reporteando en excel es mejor y mas presentable

tu ejemplo es bueno pero solo me pasa formatos automaticos que pasa si yo le he dado un formato qu yo cree con diferentes colores de celdas como lo paso a excel

muy bueno el ejemplo.. me ayudo para traspasar archivos *DBf a exel desde :net.. gracias..
jaimealex@gmail.com

Pesimo, para principiantes

hey muy bueno el ejemplo, pero que pasa si del datagrid yo cambio los datos de una columna, como hago para que a excel me pase lo que tiene el grid actualmente y no el dataset que se cargo al principio, gracias, mi correo es usugas@hotmail.com

Es bueno.
no ayuda a resolver muchos problemas en los diseños de sistemas
gracias..

Lo pase el programa a C#, donde el equivalente de la funcion
Exc.ActiveWorkbook.SaveAs(pFileName, Excel.XlTextQualifier.xlTextQualifierNone - 1)

seria :
Exc.ActiveWorkbook.SaveAs(pFileName, Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierNone - 1, null, null, false, null,
Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlShared, null, null, null, null, null);

cuando lo ejecuto en una maquina donde esta instalado Office 2003 no tengo ningun problema, pero cuando lo ejecuto en una maquina que esta instalado Office 2007, la ejecucion se queda en esta linea de codigo y no continua. al parecer esta buscando un archivo temporal que debe tener extension xlsx, el cual no lo encuentra y por eso no continua

shuaman@delvalle.com.pe
hmse_21@hotmail.com
Genera un reporte en excel con Columnas dinamicas

''Forma de Exportar a excel a partir de un Data Set espero que les pueda servir.
''se instancia la variable XLS de esta forma
Private xls As Microsoft.Office.Interop.Excel.Application
''O de esta forma
Private xls as Excel.Application

With xls
''.Visible = True
.Workbooks.Add()
.Cells(2, 3).Value = "Gastos Directos " & Me.CboMes.Text & " Del " & Me.DTP_ANIO.Text & " " & Me.cboArea.Text & " Dolares"
.Cells(2, 3).Font.Bold = 1
''.Cells(2, 1).Value = Me.cboArea.Text
'' Dim Propiedad() As PropertyInfo = objEntOrden.GetType.GetProperties()

.Cells(4, 1).value = "Rubro"
.Cells(4, 2).value = "Descripción"
.Cells(4, 1).Select()
''llenar el fondo de gris
With .Selection.Interior
.ColorIndex = 15
End With
.Cells(4, 2).Select()
With .Selection.Interior
.ColorIndex = 15
End With
.Cells(4, 1).Font.Bold = 1
.Cells(4, 2).Font.Bold = 1
.Cells(5, 2).Select()
With .Selection.Interior
.ColorIndex = 15
End With

.Cells(5, 1).Select()
With .Selection.Interior
.ColorIndex = 15
End With

For i = 0 To DsAREA_CCOSTO.Tables(0).Rows.Count - 1
.Cells(4, i + 3).value = DsAREA_CCOSTO.Tables(0).Rows.Item(i).Item("DESCRIPCIONCCOSTO").ToString.Trim
.Cells(4, i + 3).Select()
With .Selection.Interior
.ColorIndex = 15
End With
.Cells(5, i + 3).value = DsAREA_CCOSTO.Tables(0).Rows.Item(i).Item("Centro_Costo").ToString.Trim
.Cells(4, i + 3).Font.Bold = 1
.Cells(4, i + 3).Font.Size = 7
.Cells(5, i + 3).Font.Bold = 1
.Cells(5, i + 3).Font.Size = 7
.Cells(5, i + 3).Select()
With .Selection.Interior
.ColorIndex = 15
End With
Next
.Cells(4, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).value = "TOTAL"
.Cells(4, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).Select()
With .Selection.Interior
.ColorIndex = 15
End With
.Cells(4, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).Font.Bold = 1
.Cells(4, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).Font.Size = 7
.Cells(5, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).Font.Size = 7
.Cells(5, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).VALUE = Me.cboArea.Text
.Cells(5, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).Font.Bold = 1
.Cells(5, (DsAREA_CCOSTO.Tables(0).Rows.Count) + 3).Select()
With .Selection.Interior
.ColorIndex = 15
End With
Dim F As Integer = 6
totalarea = DsAREA_CCOSTO.Tables(0).Rows.Count
For i = 0 To DsGatoDirecto.Tables(0).Rows.Count - 1
.Cells(F, 1).Value

Genial. Es un muy buen ejemplo.
Gracias.
Kesse (Tgna)

MUCHISIMAS GRACIAS!!! ERA LO QUE ESTABA NECESITANDO!!!!! MIL GRACIAS!!!!

soy nuevo en esto me pide unas refrenecias

OLA, NECESITO SABER COMO CAMBIAR EL FORMATO DE EXCELL 2003 A A LA VERSION 2007,
AGRADESCO MUCHO AL QUIEN ME PUEDA AYUDAR

Gracias me ha sido de mucha ayuda.

Muy buena tu aplicacíón, es lo que necesitaba para mi programa, aunque me está dando algunos problemas.

ni asi pasare mi examen jjejejeje
grax
:)

Gracias Man, no solo me ayudaste a pasar datos a excel, sino que ahora entiendo un poco mas el uso de clases, no creo que haya un mejor ejemplo.

la verdad no pude descargar el ejemplo pero me sirviria de mucha ayuda si me lo mandaras te dejo mi correo ale_246gar@hotmail.com
como mandar los datos de un datagrid a excel gracias te lo agradesco

use este ejemplo y funciona perfecto escepto por que no me respetolos seros a la izquierda de mi columna, alguien me puede orientar de ¿Cómo puedo hacerlo?
columna5 = 0001 y me pone 1 requiero los seros a la izquierda y gracias de antemano

por cierto no mencione que uso un datatable para manipular mis datos y esportarl,o a excel