Visual Basic.NET - Exportar datos de SQL a Excel

   
Vista:

Exportar datos de SQL a Excel

Publicado por Aurora (4 intervenciones) el 03/03/2009 16:53:34
Hola! buen dia, mi duda es la siguiente...

Necesito exportar la informacion de una consulta que realizo a tablas de SQL a excel...

Tengo el siguiente codigo pero me envia errores... no se que me hace falta o si tuvieran alguna otra opcion para exportar a Excel se los agradeceria mucho...

Muchas gracias!!!!

Saludos : )

***** Codigo: ******
'dtSRlist = GridView.DataSource

'sFile = "C:hoja.xlsx"

'sTemplate = "C: emplate.xlsx"

'oExcel.Visible = False : oExcel.DisplayAlerts = False

'oBooks = oExcel.Workbooks
'oBooks.Open(sTemplate)

'oBook = oBooks.Item(1)
'oSheets = oBook.Worksheets
'oSheet = CType(oSheets.Item(1), Worksheet)

'oSheet.Name = "hoja1"
'oCells = oSheet.Cells

'iCol = 0

'If RS.Tables(0).Rows.Count > 0 Then
' Do While Not EOF(1)
' For iCol = 0 To RS.Tables(0).Rows.Count - 1
'oCells(2, iCol + 1) = RS.Tables(0).Rows(0).Item(0)
' Exit Do
'Next
'Loop
'End If

'DumpData(dtSRlist, oCells)
'oSheet.SaveAs(sFile)
'oBook.Close()

***** Y lo que me causa problema es lo siguiente: *****

Public Sub DumpData(ByVal dt As DataTable, ByVal oCells As Range)

'Dim dr As DataRow, ary() As Object
'Dim iRow As Integer, iCol As Integer

'Output Column Headers
' For iCol = 0 To dt.Columns.Count - 1
' oCells(2, iCol + 1) = dt.Columns(iCol).ToString
'Next

'Output Data
'For iRow = 0 To dt.Rows.Count - 1
'dr = dt.Rows.Item(iRow)
'ary = dr.ItemArray
'For iCol = 0 To UBound(ary)
'oCells(iRow + 3, iCol + 1) = ary(iCol).ToString
'Response.Write(ary(iCol).ToString & vbTab)
'Next
'Next

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder