Migrar Datos
Hola Gente!, alguien puede guiarme con opciones de como migrar datos de una BD en Access a Excel, mediante código de VB, lo puedo hacer con la opción que tienen los reportes hechos en Crystal Report, pero quiero mediante código poder hacerlo, así yo le doy el formato que necesito... Gracias
1 Respuesta
Respuesta de ifrancoz
1
Creo que algo así te puede servir:
Private Sub Pasar_Excel()
Arcw = Ruta & "Accionistas.Xls"
Set Hojaexcel = CreateObject("Excel.Sheet")
'Hojaexcel.Application.Visible = True
Hojaexcel.ActiveSheet.Cells(1, 1).Value = "Registro"
Hojaexcel.ActiveSheet.Cells(1, 2).Value = "Nombre"
I = 2
SQL = "SELECT * FROM TACCIONISTAS WHERE CODCIA = '" & Ciaw & _
"' AND ACCTOT > " & Cerow & ""
Set Lrec = MIBASE.OpenRecordset(SQL, dbOpenDynaset)
Do While Not Lrec.EOF
Wreg = Lrec.Fields("Codcta")
Wnom = Lrec.Fields("Nombre")
Hojaexcel.ActiveSheet.Cells(I, 1).Value = Wreg
Hojaexcel.ActiveSheet.Cells(I, 2).Value = Wnom
I = I + 1
Lrec.MoveNext
Loop
Lrec.Close
Set Lrec = Nothing
Hojaexcel.SaveAs Arcw
Hojaexcel.Application.Quit
Set Hojaexcel = Nothing
End Sub
Suerte
Private Sub Pasar_Excel()
Arcw = Ruta & "Accionistas.Xls"
Set Hojaexcel = CreateObject("Excel.Sheet")
'Hojaexcel.Application.Visible = True
Hojaexcel.ActiveSheet.Cells(1, 1).Value = "Registro"
Hojaexcel.ActiveSheet.Cells(1, 2).Value = "Nombre"
I = 2
SQL = "SELECT * FROM TACCIONISTAS WHERE CODCIA = '" & Ciaw & _
"' AND ACCTOT > " & Cerow & ""
Set Lrec = MIBASE.OpenRecordset(SQL, dbOpenDynaset)
Do While Not Lrec.EOF
Wreg = Lrec.Fields("Codcta")
Wnom = Lrec.Fields("Nombre")
Hojaexcel.ActiveSheet.Cells(I, 1).Value = Wreg
Hojaexcel.ActiveSheet.Cells(I, 2).Value = Wnom
I = I + 1
Lrec.MoveNext
Loop
Lrec.Close
Set Lrec = Nothing
Hojaexcel.SaveAs Arcw
Hojaexcel.Application.Quit
Set Hojaexcel = Nothing
End Sub
Suerte
Este es un recordatorio de Ifrancoz favor cerrar la pregunta.
