Me gustaría saber como puedo pasar tablas de access a un archivo de excel.

Responde Enrique (SoftJaen)

Dim sExcelFileName As String
    Dim sWorksheetName As String
    Dim sTableName As String
    Dim db As Database

    ' Datos por defecto
    sExcelFileName = "G:\VBNews\Libro1.xls"
    sWorksheetName = "WorkSheet1"
    sTableName = "Tabla1"

    ' Abro la base de datos
    Set db = OpenDatabase("G:\VBNews\Bd1.mdb")

    'Si el archivo excel existe, lo elimino
    If Dir(sExcelFileName) <> "" Then Kill sExcelFileName

    ' Creo una tabla nueva mediante la instrucción
    ' SELECT...INTO
    db.Execute _
    "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelFileName & _
    "].[" & sWorksheetName & "] FROM " & "[" & sTableName & "]"

    ' Por último, cierro la base de datos
    db.Close
    Set db = Nothing

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)