copiar en un libro y pegar en varios

[pitito]

hola,

con este código recorro los libros de una determinada carpeta, lo que necesito es completarlo de forma que me abra los libros y copie un determinado rango y lo pegue en el libro actual. Lo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[pitito]

up

 

[opermty]

Por que no mejor anexas un archivo con lo que deseas
saludos

 

[opermty]

A proposito tiene preferencia por alguna solucion en especial ?

 

[pitito]

hola,


El código me falla en el bucle que procesa los libros. esta mal.

 

[opermty]

Posiblemente sea por que no haces referencia al rango que deseas copiar (libro origen) a la hoja destino
Igualmente te funcionaria mejor si los cierras y no los dejas activos
saludos

 

[pitito]

hola opermty,

me falla esta lí­nea:

Workbooks.Open Filename:=Archivos(i), ReadOnly:=True

 

[pitito]

hola,

subo el archivo para más comodidad.

 

[opermty]

Cual es el error que te marca ?

 

[pitito]

Hola,

No marca un error concreto simplemente me lo marca en amarillo al depurar

 

[opermty]

Hola,

Sorry por la tardanza, el problema que te marca sin razon aparente es por que windows al abrir la aplicacion "excel" maneja sus propios handles de ventana y si lo abres desde excel este...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[opermty]

Revisa estos dos links ya que me parece que seria la forma mas correcta de realizar la copia que necesitas

Cómo transferir datos a Excel con ADO desde Origen de datos de ADO...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[opermty]

Métodos para transferir datos a Excel desde Visual Basic
https://support.microsoft.com/kb/247412/es

 

[opermty]

Hola sorry se me acaba de ocurrir mientras contestaba otra exposicion y recorde que se aplica igualmente a la tuya

Sub Abrirporfecha()
Dim dia, mes, año, sruta, oBook
dia = Mid(Date, 1, 2): mes =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí