Iniciar sesi�n

Select the product you need help with

C�mo recuperar una tabla de Access en Excel con DAO

Id. de art�culo: 146406 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

Expandir todo | Contraer todo

Resumen

En las versiones de Microsoft Excel enumerados anteriormente, puede utilizar objetos de acceso a datos (DAO) en Visual Basic para aplicaciones para recuperar una tabla de Microsoft Access.

Para proporcionar un ejemplo de c�mo se puede utilizar DAO para recuperar una tabla de Microsoft Access, la macro descrita en este art�culo utiliza la base de datos Neptuno que envi� con Microsoft Office Professional para Windows 95, versi�n 7.0 y Microsoft Office 97 Professional para Windows. Si seleccion� las opciones predeterminadas cuando instal� Microsoft Office Professional para Windows 95, versi�n 7.0, la base de datos se encuentra en:

   \MSOffice\Access\Samples\Northwind.mdb

si seleccion� las opciones predeterminadas cuando instal� Microsoft Office 97 Professional para Windows, la base de datos se encuentra en:

   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb

si la base de datos Northwind se encuentra en una carpeta diferente en el equipo, deber� modificar el c�digo proporciona a continuaci�n antes de ejecutarla.

Para utilizar DAO en la macro, debe hacer referencia la biblioteca de objetos DAO de Microsoft o puede recibir el error "definido por el usuario tipo no definido". Para hacer referencia a esta biblioteca en Microsoft Excel version 7.0, activar una hoja de m�dulo, haga clic en referencias en el men� Herramientas y Active la opci�n de "Biblioteca de objetos de Microsoft DAO 3.0". Para hacer referencia a esta biblioteca en Microsoft Excel version 97, haga clic en referencias en el men� Herramientas en el Editor de Visual Basic y compruebe la "biblioteca de objetos de Microsoft DAO 3.5".

Volver al principio | Enviar comentarios

M�s informaci�n

Microsoft proporciona ejemplos de programaci�n con fines ilustrativos �nicamente, sin ninguna garant�a tanto expresa como impl�cita. Esto incluye, entre otras, las garant�as impl�citas de comerciabilidad e idoneidad para un fin determinado. Este art�culo se supone que est� familiarizado con el lenguaje de programaci�n que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte t�cnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificar�n estos ejemplos para ofrecer mayor funcionalidad ni crear�n procedimientos que cumplan sus requisitos espec�ficos. Para recuperar una tabla de Microsoft Access, siga estos pasos:

Establecer un objeto Database.
Establecer un objeto Recordset.
Recuperar los encabezados (si lo desea).
Recuperar los datos de la tabla.

Despu�s de recuperan los datos, debe cerrar todos los objetos abiertos emitiendo comandos .Close.

Para recuperar una tabla desde Microsoft Access mediante programaci�n, utilice el siguiente de Visual Basic para c�digo de aplicaciones:

Sub GetTable()
'This sub will retrieve all the data in the "Customers" table in
'Northwind

   'Declare variables
   Dim Db As Database
   Dim Rs As Recordset
   Dim Ws As Object
   Dim i As Integer
   Dim Path as String

   'This line will define the Object "Ws" as Sheets("Sheet1")
   'The purpose of this is to save typing Sheets("Sheet1")
   'over and over again
   Set Ws = Sheets("Sheet1")

   'Set the Path to the database. This line is useful because
   'if your database is in another location, you just need to change
   'it here and the Path Variable will be used throughout the code
   Path = "c:\msoffice\access\samples\northwind.mdb"

   'This set of code will activate Sheet1 and clear any existing data
   'After clearing the data it will select cell A1
   Ws.Activate
   Range("A1").Activate
   Selection.CurrentRegion.Select
   Selection.ClearContents
   Range("A1").Select

   'Set the Database, and RecordSet  This Table exists in the database
   Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)

   'This will set the RecordSet to all records in the Customers table
   Set Rs = Db.OpenRecordset("Customers")

   'You could instead set the RecordSet to, for example, the records
   'where the Country Code is "UK", without quotes. To do this, replace
   'the line above: Set Rs = Db.OpenRecordset("Customers") with the
   'following:
   '
   'Set Rs = _
   'Db.OpenRecordset("SELECT * FROM Customers WHERE Country = 'UK';")


   'This loop will collect the field names and place them in the first
   'row starting at "A1"
   For i = 0 To Rs.Fields.Count - 1
      Ws.Cells(1, i + 1).Value = Rs.Fields(i).Name
   Next I

   'The next line simply formats the headers to bold font
   Ws.Range(Ws.Cells(1, 1), Ws.Cells(1, Rs.Fields.Count)).Font.Bold=True

   'The next line will get the data from the recordset and copy it
   'into the Worksheet (Sheet1).
   Ws.Range("A2").CopyFromRecordset Rs

   'This next code set will just select the data region and
   'auto-fit the columns
   Sheets("Sheet1").Select
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.Columns.AutoFit
   Range("A1").Select

   Rs.Close
   Db.Close
End Sub

Volver al principio | Enviar comentarios

Referencias

Para obtener m�s informaci�n acerca de acceso a datos, haga clic en la ficha �ndice de la Ayuda de Microsoft Excel, escriba el texto siguiente

acceso a datos en DAO

y, a continuaci�n, haga doble clic en el texto seleccionado para ir al tema "Acceso a externos bases de datos con DAO".

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 146406 - �ltima revisi�n: mi�rcoles, 11 de octubre de 2006 - Versi�n: 2.3

La informaci�n de este art�culo se refiere a:

Microsoft Excel 97 Standard Edition
Microsoft Excel 95 Standard Edition

kbmt kbdtacode kbhowto kbinterop kbprogramming KB146406 KbMtes

Traducci�n autom�tica

IMPORTANTE: Este art�culo ha sido traducido por un software de traducci�n autom�tica de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece art�culos traducidos por un traductor humano y art�culos traducidos autom�ticamente para que tenga acceso en su propio idioma a todos los art�culos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los art�culos traducidos autom�ticamente pueden contener errores en el vocabulario, la sintaxis o la gram�tica, como los que un extranjero podr�a cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisi�n, error o da�o ocasionado por una mala traducci�n del contenido o como consecuencia de su utilizaci�n por nuestros clientes. Microsoft suele actualizar el software de traducci�n frecuentemente.

Haga clic aqu� para ver el art�culo original (en ingl�s): 146406

(http://support.microsoft.com/kb/146406/en-us/ )

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

El presente art�culo se escribi� para productos para los que Microsoft ya no ofrece soporte t�cnico. Por tanto, el presente art�culo se ofrece "tal cual" y no ser� actualizado.

Volver al principio | Enviar comentarios