Exportar DataSet a Excel

[jhonwilliams]

Holas.

He estado buscando en el foro la forma de exportar un DataSet a Excel pero desde aplicaciones de Escritorio, la verdad no encontre nada, asi que si alguien sabe donde hay info o conoce la forma de hacerlo, les agradeceria que me ayudaran con eso.

Gracias

[.seb]

Lo que hice cuando necesité hacer eso fué recorrer el DataSet he ir generando un CSV. al abrir el CSV con Excel este se encarga de todo (a no ser que euiras mostrar formulas).

Pero estoy seguro que debe de haber algo más fácil... tenlo como último recurso ;)

[jhonwilliams]

Y tienes algun manual para creacion de ese tipo de archivos?

Gracias

[freegirl]

Hola

te dejo los enlaces que utilicé como referencia para un trabajo similar. Espero que te sirva:

http://www.microsoft.com/spanish/msd...ces/art164.asp

http://msdn.microsoft.com/library/de...plications.asp

http://www.vbforums.com/showpost.php...38&postcount=3

saludos

[jhonwilliams]

Me estoy volviendo loco con esto de exportar a Excel, los ejemplos que e bajado funcionan y trato de hacerlo en C# VS2005 y no me da,

Uso la referencia a Microsoft Excel 11.0 Object Library

Pero al tratar de hacer algo como esto:

Imports Excel
Dim excelApp As Excel.Application
Dim workBook As Excel.Workbook

En C# Yo haria algo como esto

using Excel
Excel.Applicacion excelApp = new Excel.Applicacion();
Excel.Workbook workBook = new Excel.Workbook();

Pero no da, no da y no da.

¿Lo estoy haciendo mal?
¿Saben que puede estar pasando?

Gracias

[freegirl]

Hola,

Te sale algún error? en caso afirmativo, cual?

saludos

[jhonwilliams]

Normalente, sin importar lo que trate de hacer o como lo haga me sale un mensaje como este:

'Microsoft.Office.Interop.Excel' es 'espacio de nombres' pero se utiliza como 'tipo'

En fin, eso no me a dado y todos los ejemplos que e bajado hacen algo similar solo que a ellos les funciona , por ejemplo mira este code:

Imports Excel
Dim excelApp As Excel.Application
Dim workBook As Excel.Workbook

Try
'instanciamos a excel.application
excelApp = New Excel.Application()

'Creamos una hoja en el libro predeterminado
workBook = excelApp.Workbooks.Add(XlWBATemplate.xlWBATWorkshe et)
Catch
'se utiliza la version 10 de excel o XP
Throw New Exception("An incompatible version of Microsoft Excel is intalled on your system.")
End Try

Trato de hacer algo similar en C# y no compila, ese code es de un ejemplo echo en VB.NET 2002, el VS2005 lo abre, le hace la conversion y lo ejecuta sin problemas.

Saludos

[jhonwilliams]

Despues de un rato ya logre que compilara, pero me saca un error en la ejecucion, este es el error:

Error al recuperar un generador de clases COM para el componente con CLSID {00020819-0000-0000-C000-000000000046} debido al siguiente error: 80040154.

Y esta es la linea que lo saca,

Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();
Excel.Workbook libro = new Microsoft.Office.Interop.Excel.Workbook();

La linea verde la pasa bien, la roja es la que falla

Saludos

[CAOG22]

mi viejo realice algo como esto

Excel.Application ApExcel = new Excel.Application();
object opc = Type.Missing;
//el te pide que crees un objeto de tipo missing para que te funcione.
Excel.Workbook Libro = ApExcel.Workbooks.Add(opc);
ApExcel.Visible = true;
probalo y me contas

[jcalcalde]

Aca les dejo unas rutinas que permiten exportar a excel
desde un dataset espero les sirva

Código:

 
PublicSub DataTableToExcel(ByVal pDataTable As DataTable)
Dim vFileName AsString = Path.GetTempFileName()
FileOpen(1, vFileName, OpenMode.Output)
Dim sb AsString = ""
Dim dc As DataColumn
ForEach dc In pDataTable.Columns
sb &= dc.Caption & Microsoft.VisualBasic.ControlChars.Tab
Next
PrintLine(1, sb)
Dim i AsInteger = 0
Dim dr As DataRow
ForEach dr In pDataTable.Rows
i = 0 : sb = ""
ForEach dc In pDataTable.Columns
IfNot IsDBNull(dr(i)) Then
sb &= CStr(dr(i)) & Microsoft.VisualBasic.ControlChars.Tab
Else
sb &= Microsoft.VisualBasic.ControlChars.Tab
EndIf
i += 1
Next
PrintLine(1, sb)
Next
FileClose(1)
TextToExcel(vFileName)
EndSub

PublicSub TextToExcel(ByVal pFileName AsString)
Dim vFormato As Excel.XlRangeAutoFormat
Dim Exc As Excel.Application = New Excel.Application
Exc.Workbooks.OpenText(pFileName, , , , Excel.XlTextQualifier.xlTextQualifierNone, , True)
Dim Wb As Excel.Workbook = Exc.ActiveWorkbook
Dim Ws As Excel.Worksheet = CType(Wb.ActiveSheet, Excel.Worksheet)
'Se le indica el formato al que queremos exportarlo
Dim valor AsInteger = 10
If valor > -1 Then
SelectCase valor
Case 10 : vFormato = Excel.XlRangeAutoFormat.xlRangeAutoFormatClassic1
EndSelect
Ws.Range(Ws.Cells(1, 1), Ws.Cells(Ws.UsedRange.Rows.Count, Ws.UsedRange.Columns.Count)).AutoFormat(vFormato)
pFileName = Path.GetTempFileName.Replace("tmp", "xls")
File.Delete(pFileName)
Exc.ActiveWorkbook.SaveAs(pFileName, Excel.XlTextQualifier.xlTextQualifierNone - 1)
EndIf
Exc.Quit()
Ws = Nothing
Wb = Nothing
Exc = Nothing
GC.Collect()
If valor > -1 Then
Dim p As System.Diagnostics.Process = New System.Diagnostics.Process
p.EnableRaisingEvents = False
System.Diagnostics.Process.Start(pFileName)
EndIf
EndSub