EXPORTA DE ACCESS 97-2007-2010 A EXCEL CON VISUAL BASIC 6

 

PARA  ACCESS 2007 - 2010

Dim ExcelApp As Object

Dim ExcelWorkbook As Object

Dim ExcelWorksheet As Object

Dim Conn As Object

Dim Recordset As Object

Dim i As Integer

Dim j As Integer

' Inicializa una instancia de Excel

Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = False ' Establece esto en True si deseas que Excel sea visible

' Evita que se muestren alertas, incluyendo la confirmación de sobrescribir

ExcelApp.DisplayAlerts = False

' Abre un archivo de Excel y agrega una hoja de trabajo

Set ExcelWorkbook = ExcelApp.Workbooks.Add

Set ExcelWorksheet = ExcelWorkbook.Worksheets(1)

''''''''''''''''''''''PARA ACCESS 97'''''''''''''''''''''''''''''''''''

' Establece la cadena de conexión para una base de datos de Access .mdb

'Set Conn = CreateObject("ADODB.Connection")

'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=RutaDeTuBaseDeDatos.mdb;Jet OLEDB:Database Password=TuContraseña" ' Cambia la ruta y la contraseña

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''PARA ACCESS 2007-2010'''''''''''''''''''''''''''''''''''

' Establece la cadena de conexión para una base de datos de Access .accdb

'Set Conn = CreateObject("ADODB.Connection")

'Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=basedatos.accdb;Jet OLEDB:Database Password=" ' Cambia la ruta y la contraseña

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim databasePath As String

databasePath = App.Path & "\basedatos.accdb"

' Establece la cadena de conexión para una base de datos de Access .accdb

Set Conn = CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databasePath & ";Jet OLEDB:Database Password=" ' Cambia "TuContraseña" si es necesario

' Abre la tabla de Access que deseas exportar

Set Recordset = CreateObject("ADODB.Recordset")

Recordset.Open "SELECT * FROM articulos", Conn ' Cambia el nombre de tu tabla

' Copia los datos de la tabla de Access a Excel

For i = 0 To Recordset.Fields.Count - 1

    ExcelWorksheet.Cells(1, i + 1).Value = Recordset.Fields(i).Name

Next i

i = 2 ' Comienza desde la segunda fila en Excel

Recordset.MoveFirst

Do Until Recordset.EOF

    For j = 0 To Recordset.Fields.Count - 1

        ExcelWorksheet.Cells(i, j + 1).Value = Recordset.Fields(j).Value

    Next j

    i = i + 1

    Recordset.MoveNext

Loop

' Guarda el archivo de Excel

'    Al agregar , 1 como segundo argumento,

'    le estás diciendo a Excel que sobrescriba el archivo existente

'    en lugar de crear uno nuevo.

'    ExcelWorkbook.SaveAs "C:\base\archivoexp.xls", 1

'App.Path & "\bdkian.mdb"

ExcelWorkbook.SaveAs App.Path & "\copiaarticulos.xls", 1

' Habilita nuevamente los mensajes de alerta (opcional, si lo necesitas)

ExcelApp.DisplayAlerts = True

' Cambia la ruta y el nombre de tu archivo

' Cierra y libera los objetos

Recordset.Close

Set Recordset = Nothing

Conn.Close

Set Conn = Nothing

ExcelWorkbook.Close

ExcelApp.Quit

Set ExcelWorksheet = Nothing

Set ExcelWorkbook = Nothing

Set ExcelApp = Nothing

MsgBox "exporto bien"

////////////////////////////////////////////////////////////////////////////////////////

PARA  ACCESS 97

Dim ExcelApp As Object

Dim ExcelWorkbook As Object

Dim ExcelWorksheet As Object

Dim Conn As Object

Dim Recordset As Object

Dim i As Integer

Dim j As Integer

' Inicializa una instancia de Excel

Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = False ' Establece esto en True si deseas que Excel sea visible

' Evita que se muestren alertas, incluyendo la confirmación de sobrescribir

ExcelApp.DisplayAlerts = False

' Abre un archivo de Excel y agrega una hoja de trabajo

Set ExcelWorkbook = ExcelApp.Workbooks.Add

Set ExcelWorksheet = ExcelWorkbook.Worksheets(1)

''''''''''''''''''''''PARA ACCESS 97'''''''''''''''''''''''''''''''''''

' Establece la cadena de conexión para una base de datos de Access .mdb

'Set Conn = CreateObject("ADODB.Connection")

'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=RutaDeTuBaseDeDatos.mdb;Jet OLEDB:Database Password=TuContraseña" ' Cambia la ruta y la contraseña

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''PARA ACCESS 2007-2010'''''''''''''''''''''''''''''''''''

' Establece la cadena de conexión para una base de datos de Access .accdb
'Set Conn = CreateObject("ADODB.Connection")
'Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=basedatos.accdb;Jet OLEDB:Database Password=" ' Cambia la ruta y la contraseña
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim databasePath As String
'
databasePath = App.Path & "\bdkian.mdb"
'
'' Establece la cadena de conexión para una base de datos de Access .accdb
Set Conn = CreateObject("ADODB.Connection")
'
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasePath & ";Jet OLEDB:Database Password=995511" ' Cambia "TuContraseña" si es necesario
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'Dim databasePath As String
'
'databasePath = App.Path & "\basedatos.accdb"
'
'' Establece la cadena de conexión para una base de datos de Access .accdb
'Set Conn = CreateObject("ADODB.Connection")
'
'Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databasePath & ";Jet OLEDB:Database Password=" ' Cambia "TuContraseña" si es necesario
'
'
'

' Abre la tabla de Access que deseas exportar
Set Recordset = CreateObject("ADODB.Recordset")
Recordset.Open "SELECT * FROM proveedor", Conn ' Cambia el nombre de tu tabla



' Copia los datos de la tabla de Access a Excel
For i = 0 To Recordset.Fields.Count - 1
    ExcelWorksheet.Cells(1, i + 1).Value = Recordset.Fields(i).Name
Next i


i = 2 ' Comienza desde la segunda fila en Excel
Recordset.MoveFirst
Do Until Recordset.EOF
    For j = 0 To Recordset.Fields.Count - 1
        ExcelWorksheet.Cells(i, j + 1).Value = Recordset.Fields(j).Value
    Next j
    i = i + 1
    Recordset.MoveNext
Loop


' Guarda el archivo de Excel

'    Al agregar , 1 como segundo argumento,
'    le estás diciendo a Excel que sobrescriba el archivo existente
'    en lugar de crear uno nuevo.
'    ExcelWorkbook.SaveAs "C:\base\archivoexp.xls", 1


'App.Path & "\bdkian.mdb"

'    " & Format(Date, "DD-MM-YYYY") &

ExcelWorkbook.SaveAs App.Path & "\copiaarticulos.xls", 1

' Habilita nuevamente los mensajes de alerta (opcional, si lo necesitas)
ExcelApp.DisplayAlerts = True


' Cambia la ruta y el nombre de tu archivo
' Cierra y libera los objetos
Recordset.Close
Set Recordset = Nothing
Conn.Close
Set Conn = Nothing
ExcelWorkbook.Close
ExcelApp.Quit
Set ExcelWorksheet = Nothing
Set ExcelWorkbook = Nothing
Set ExcelApp = Nothing
MsgBox "exporto bien"