Buscar primera línea vacía.. sí, otra vez :(

15/08/2003 - 12:31 por Coruscar | Informe spam
Necesito vuestra ayuda. Quiero ejecutar automáticamente una misma
consulta SQL contra un grupo de ficheros MDB (microsoft access) y poner
los resultados en una misma hoja (nueva), a continuación unos de otros.
Los nombres de los ficheros ya los tengo (sin las extensiones) en una
columna de una hoja de datos.

El problema que tengo es que no consigo especificar en VBA la idea
"pegar los datos del recordset A PARTIR DE LA PRIMERA FILA VACIA".

Ahora mismo mi código, resumido a lo estrictamente necesario es mas o menos:

...
Set NuevaHoja = WorkSheets.Add
' recorro una columna que contiene los nombres de los ficheros access
do While NOT IsEmpty(ActiveCell)
'establezco una conexión ADO con el fichero ...
"Data Source =" & ActiveCell.Value & ".mdb" (...)

'Esto funciona pero machaca los datos cada vez que se
' ejecuta una nueva consulta:
NuevaHoja.Range("A1").CopyFromRecordset adoRS

'cierro la conexión...
loop
...

He intentado varias cosas cada vez más complicadas que como no
funcionan, no os contaré; estoy en un punto en que he calentado tanto a
la cebolla, que no soy capaz de que se me ocurran soluciones SENCILLAS,
que son las mejores, estoy convencido.

Gracias por leerme
 

Leer las respuestas

#1 Héctor Miguel
15/08/2003 - 13:04 | Informe spam
Hola, Coruscar !

... problema ... no consigo ... en VBA ... pegar los datos ... A PARTIR DE LA PRIMERA FILA VACIA".
... Esto funciona pero machaca los datos cada vez que se ' ejecuta una nueva consulta:
NuevaHoja.Range("A1").CopyFromRecordset adoRS



==> Haz una prueba con...
NuevaHoja.Range("a65536").End(xlUp).Offset(1).CopyFromRecordset adoRS
_______
Saludos,
Héctor.
MS-MVP

Preguntas similares