52 lines
1.9 KiB
VB.net
52 lines
1.9 KiB
VB.net
Public Class clsExcel
|
|
'Public Sub sbExportaDataReader(ByVal SQL As String)
|
|
' Dim clCpx As New clsComplejo()
|
|
' Dim clCpxAva As New clsComplejo()
|
|
' Dim vntRenglon As Object
|
|
' Dim Exl As Excel.Application
|
|
' Dim Wst As Excel.Worksheet
|
|
' Dim drConsulta As SqlClient.SqlDataReader
|
|
' Dim i, j, k As Integer
|
|
' Dim A As Object
|
|
' Dim Z As Object
|
|
' Dim Progreso As New ExcProgreso()
|
|
' Dim liRegistros As Integer
|
|
|
|
' drConsulta = clCpx.fdDataReader(SQL)
|
|
' liRegistros = clCpxAva.fiCuantosRegistros(SQL)
|
|
' Exl = CreateObject("Excel.Application")
|
|
' Exl.Workbooks.Add()
|
|
' Wst = Exl.Worksheets(1)
|
|
|
|
' If liRegistros > 65536 Then
|
|
' MsgBox("Total de registros excede el número permitido", vbInformation)
|
|
' Exit Sub
|
|
' End If
|
|
' Progreso.pbrAvance.Maximum = liRegistros
|
|
' Progreso.Text = "Exportando a Excel"
|
|
' Progreso.Show()
|
|
' For k = 0 To drConsulta.FieldCount - 1
|
|
' Wst.Cells(1, k + 1).Value = drConsulta.GetName(k)
|
|
' Wst.Cells(1, k + 1).Interior.Color = RGB(210, 210, 210)
|
|
' Next
|
|
' i = 1
|
|
' While drConsulta.Read
|
|
' For j = 0 To drConsulta.FieldCount - 1
|
|
' vntRenglon = drConsulta.GetValue(j)
|
|
' Wst.Cells(i + 1, j + 1).Value = vntRenglon
|
|
' Next
|
|
' Progreso.pbrAvance.Value = i
|
|
' Progreso.Refresh()
|
|
' ' Progreso.lblAvance.Text = CInt((i * 100) / liRegistros) & " %"
|
|
' i = i + 1
|
|
' End While
|
|
' A = Wst.Cells(1, 1)
|
|
' Z = Wst.Cells(i + 1, j + 1)
|
|
' Wst.Columns("A:Z").EntireColumn.AutoFit()
|
|
' 'Wst.Range(A, Z).AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormatList2)
|
|
' Exl.Visible = True
|
|
' Exl = Nothing
|
|
' Progreso.Close()
|
|
'End Sub
|
|
End Class
|