Exportar datos de la base de datos SQL a Excel en VB

Utilice el siguiente código y modifíquelo según su situación real

Private Sub Command1_Click()

Dim i As Integer

Dim j como entero

Dim xlApp como Excel.Application

Dim xlBook como Excel.Workbook

Dim xlSheet como Excel.Worksheet

Establecer xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

Establecer xlBook = xlApp.Workbooks.Add

Establecer xlSheet = xlBook. (1)

Si Adodc1.Recordset.RecordCount > 0 Entonces

xlApp.Visible = True

xlSheet.Range(xlSheet.Cells(1, 1) , xlSheet.Cells(1, 9)).Merge

xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)) = "Tabla de estadísticas no publicadas"

xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)).HorizontalAlignment = xlCenter

xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)).VerticalAlignment = xlCenter

'xlSheet.Cells(1, 9) = "Tabla de estadísticas de materiales no emitidos"

Para i = 0 a TDBGrid1. Columns.Count - 1

xlSheet.Cells(2, i + 1) = TDBGrid1.Columns(i).Caption

Siguiente i

Adodc1.Recordset .MoveFirst

Hacer hasta Adodc1.Recordset.EOF

i = Adodc1.Recordset.AbsolutePosition

Para j = 0 A TDBGrid1.Columns Count - 1<. /p>

xlSheet.Cells(i + 2, j + 1) = TDBGrid1.Columns(j)

Siguiente j

Adodc1.Recordset.MoveNext

Bucle

xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(i + 2, j)).Borders.LineStyle = xlContinuous

Fin si

Fin del subtítulo