Captura masiva de datos.

Hola gente,
Les cuento mi problema, estoy intentando cargar los datos de un archivo
excel en otro archivo excel, lo quiero hacer sin tener que abrir el primero,
por lo tanto la única opción que se me ocurre es a traves del apartado
"Obtener datos externos". Hasta aqui todo bien, el problema radica en que
esta operación la tengo que hacer con los datos de unos 150 archivos que
estan en un directorio. Mi idea era crear un bucle que me lea todos los
nombres de los archivos de ese directorio y que me fuese cargando los datos
de los mismos en el archivo que yo quiera. Como no se cuál es el código
necesario he utilizado el grabador de macros para ver como lo hace excel y
parte del mismo es el que muestro a continuación.

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=C:\Documents and
Settings\Administrador\Mis documentos\facturas.xls;DefaultDir=C:\Documents
and Settings\Ad" _
), Array( _

El código funciona correctamente el único problema es que no se como hacer
para modificar la ruta de acceso al archivo. Entiendo que es ""DSN=Excel
Files;DBQ=C:\Documents and Settings\Administrador\Mis
documentos\facturas.xls"" pero no me deja cambiar la ruta a traves de
variables, por ejemplo DSN=Excel Files;DBQ=C:\Documents and
Settings\Administrador\Mis documentos\VARIABLE Donde variable sería el
nombre del archivo.

¿Qué es lo que estoy haciendo mal?

Saludos,
Adolfo

¿La variable la estas concatenando a la cadena de texto?

"Adolfo" escribió:

> Hola gente,
> Les cuento mi problema, estoy intentando cargar los datos de un archivo
> excel en otro archivo excel, lo quiero hacer sin tener que abrir el

> por lo tanto la única opción que se me ocurre es a traves del apartado
> "Obtener datos externos". Hasta aqui todo bien, el problema radica en

> esta operación la tengo que hacer con los datos de unos 150 archivos que
> estan en un directorio. Mi idea era crear un bucle que me lea todos los
> nombres de los archivos de ese directorio y que me fuese cargando los

> de los mismos en el archivo que yo quiera. Como no se cuál es el código
> necesario he utilizado el grabador de macros para ver como lo hace excel

> parte del mismo es el que muestro a continuación.
>
> With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
> "ODBC;DSN=Excel Files;DBQ=C:\Documents and
> Settings\Administrador\Mis

> and Settings\Ad" _
> ), Array( _
>
> El código funciona correctamente el único problema es que no se como

> para modificar la ruta de acceso al archivo. Entiendo que es ""DSN=Excel
> Files;DBQ=C:\Documents and Settings\Administrador\Mis
> documentos\facturas.xls"" pero no me deja cambiar la ruta a traves de
> variables, por ejemplo DSN=Excel Files;DBQ=C:\Documents and
> Settings\Administrador\Mis documentos\VARIABLE Donde variable sería el
> nombre del archivo.
>
> ¿Qué es lo que estoy haciendo mal?
>
> Saludos,
> Adolfo
>
>
>

El problema es ¿como la concateno?
Puedo partir toda la cadena de conexion en los trozos que quiera y despues
concatenarlos uno a uno, por ejemplo:
Conn= "ODBC;DSN=Excel Files;DBQ=C:\Documents and Settings\Administrador\Mis
documentos\"
Conn= Conn & "Facturas.xls"

Mi problema es que donde pongo el archivo Facturas.xls no puedo poner una
variable porque lo tengo que poner entre comillas y no me lo reconoce como
variable.

Un saludo,
Adolfo

"morrfo" escribió en el mensaje
news:

¿La variable la estas concatenando a la cadena de texto?

"Adolfo" escribió:

> Hola gente,
> Les cuento mi problema, estoy intentando cargar los datos de un archivo
> excel en otro archivo excel, lo quiero hacer sin tener que abrir el

primero,

> por lo tanto la única opción que se me ocurre es a traves del apartado
> "Obtener datos externos". Hasta aqui todo bien, el problema radica en

que

> esta operación la tengo que hacer con los datos de unos 150 archivos que
> estan en un directorio. Mi idea era crear un bucle que me lea todos los
> nombres de los archivos de ese directorio y que me fuese cargando los

datos

> de los mismos en el archivo que yo quiera. Como no se cuál es el código
> necesario he utilizado el grabador de macros para ver como lo hace excel

y

> parte del mismo es el que muestro a continuación.
>
> With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
> "ODBC;DSN=Excel Files;DBQ=C:\Documents and
> Settings\Administrador\Mis

documentos\facturas.xls;DefaultDir=C:\Documents

> and Settings\Ad" _
> ), Array( _
>
> El código funciona correctamente el único problema es que no se como

hacer

> para modificar la ruta de acceso al archivo. Entiendo que es ""DSN=Excel
> Files;DBQ=C:\Documents and Settings\Administrador\Mis
> documentos\facturas.xls"" pero no me deja cambiar la ruta a traves de
> variables, por ejemplo DSN=Excel Files;DBQ=C:\Documents and
> Settings\Administrador\Mis documentos\VARIABLE Donde variable sería el
> nombre del archivo.
>
> ¿Qué es lo que estoy haciendo mal?
>
> Saludos,
> Adolfo
>
>
>

Hola Adolfo,

Prueba lo siguiente:

Ruta = CreateObject("WScript.Shell").SpecialFolders("Mydocuments")
Archivo="facturas.xls"

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & Ruta & "\" & Archivo &

), Array( _

Y ademas puedes echar un vistazo a la siguiente conversacion que aunque

http://tinyurl.com/86rty

Saludos,
KL


"Adolfo" wrote in message

> El problema es ¿como la concateno?
> Puedo partir toda la cadena de conexion en los trozos que quiera y

> concatenarlos uno a uno, por ejemplo:
> Conn= "ODBC;DSN=Excel Files;DBQ=C:\Documents and

> documentos\"
> Conn= Conn & "Facturas.xls"
>
> Mi problema es que donde pongo el archivo Facturas.xls no puedo poner

> variable porque lo tengo que poner entre comillas y no me lo reconoce

> variable.
>
> Un saludo,
> Adolfo
>
> "morrfo" escribió en el mensaje
> news:
>> ¿La variable la estas concatenando a la cadena de texto?
>>
>> "Adolfo" escribió:
>>
>> > Hola gente,
>> > Les cuento mi problema, estoy intentando cargar los datos de un

>> > excel en otro archivo excel, lo quiero hacer sin tener que abrir el
> primero,
>> > por lo tanto la única opción que se me ocurre es a traves del

>> > "Obtener datos externos". Hasta aqui todo bien, el problema radica en
> que
>> > esta operación la tengo que hacer con los datos de unos 150 archivos

>> > estan en un directorio. Mi idea era crear un bucle que me lea todos

>> > nombres de los archivos de ese directorio y que me fuese cargando los
> datos
>> > de los mismos en el archivo que yo quiera. Como no se cuál es el

>> > necesario he utilizado el grabador de macros para ver como lo hace

> y
>> > parte del mismo es el que muestro a continuación.
>> >
>> > With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
>> > "ODBC;DSN=Excel Files;DBQ=C:\Documents and
>> > Settings\Administrador\Mis
> documentos\facturas.xls;DefaultDir=C:\Documents
>> > and Settings\Ad" _
>> > ), Array( _
>> >
>> > El código funciona correctamente el único problema es que no se como
> hacer
>> > para modificar la ruta de acceso al archivo. Entiendo que es

>> > Files;DBQ=C:\Documents and Settings\Administrador\Mis
>> > documentos\facturas.xls"" pero no me deja cambiar la ruta a traves de
>> > variables, por ejemplo DSN=Excel Files;DBQ=C:\Documents and
>> > Settings\Administrador\Mis documentos\VARIABLE Donde variable sería

>> > nombre del archivo.
>> >
>> > ¿Qué es lo que estoy haciendo mal?
>> >
>> > Saludos,
>> > Adolfo
>> >
>> >
>> >
>
>