Me gustaría saber como puedo pasar tablas de access a un archivo de excell. 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