visual basic MACROS

Como transferir los datos a una hoja de cálculo con ADO

Transferir los datos a una hoja de cálculo con ADO
Con el Proveedor OLE DB de Microsoft Jet, puede agregar registros a una tabla en un libro de Excel existente. Una "tabla" de Excel es simplemente un rango con un nombre definido. La primera fila del rango debe contener los encabezados (o nombres de campo) y todas las filas subsiguientescontienen los registros. Los pasos siguientes muestran cómo puede crear un libro con una tabla vacía denominada MyTable.
Excel 97, Excel 2000 y Excel 2003
1. Inicie un nuevo libro en Excel.
2. Agregue los encabezados siguientes a las celdas A1:B1 de Sheet1:

A1: FirstName B1: LastName
3. Dé formato a la celda B1 como alineada a la derecha.
4. Seleccione A1:B1.
5. En el menú Insertar,elija Nombres y, a continuación, seleccione Definir. Escriba el nombre MyTable y haga clic enAceptar.
6. Guarde el nuevo libro como C:\Book1.xls y cierre Excel.
Para agregar registros a MyTable con ADO, puede usar código similar al siguiente:
'Create a new connection object for Book1.xls
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"DataSource=C:\Book1.xls;Extended Properties=Excel 8.0;"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _
" values ('Bill', 'Brown')"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _
" values ('Joe', 'Thomas')"
conn.Close
Excel 2007
1. En Excel 2007, inicie un libro nuevo.
2. Agregue los encabezados siguientes a las celdas A1:B1 de Sheet1:

A1: FirstName B1: LastName
3. Dé formatoa la celda B1 como alineada a la derecha.
4. Seleccione A1:B1.
5. En la Cinta, haga clic en la ficha Fórmulas y, a continuación, haga clic Definir el nombre. Escriba el nombre MyTable y, después, haga clic en Aceptar.
6. Guarde el nuevo libro como C:\Book1.xlsx y cierre Excel.
Para agregar registros a la tabla MyTable con ADO, utilice código parecido al ejemplo de código siguiente.
'Create anew connection object for Book1.xls
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Book1.xlsx;Extended Properties=Excel 12.0;"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _
" values ('Scott', 'Brown')"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _
" values ('Jane', 'Dow')"
conn.CloseAl agregar los registros a la tabla de esta manera, se mantiene el formato del libro. En el ejemplo anterior, se da formato a los nuevos campos agregados a la columna B con alineación a la derecha. Cada registro que se agrega a una fila toma prestado el formato de la fila que está por encima de él.

Debería tener en cuenta que cuando un registro se agrega a una celda o celdas de la hoja de cálculo,sobrescribe cualquier dato que esté en esas celdas; en otros términos, las filas de la hoja de cálculo no se "empujan hacia abajo" cuando se agregan registros nuevos. Debería tener presente esto al diseñar la disposición de los datos de las hojas de cálculo.

Nota: el método para actualizar los datos de una hoja de cálculo de Excel con ADO o con DAO no funciona en un entorno de Visual Basic paraAplicaciones dentro de Access después de instalar el Service Pack 2 (SP2) de Office 2003 o después de instalar la actualización para Access 2002 que se incluye en el artículo 904018 de Microsoft Knowledge Base. El método funciona bien en el entorno de Visual Basic para Aplicaciones desde otras aplicaciones de Office, como Word, Excel y Outlook. Para obtener más información al respecto, haga clicen los números de artículo siguientes para verlos en Microsoft Knowledge Base:
904953 No puede cambiar, agregar o eliminar datos en las tablas que están vinculadas a un libro de Excel en Office Access 2003 o en Access 2002
904018 Descripción de la actualización para Access 2002: 18 de octubre de 2005

Para obtener información adicional acerca de cómo usar ADO para tener acceso a un libro de...