Visual Basic - TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Life is soft - evento anual de software empresarial
   
Vista:

TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Publicado por JUAN (3 intervenciones) el 12/08/2015 23:07:38
Buenas noches, necesito algo de asesoramiento, he creado una aplicacion en excel en la que necesito abrir archivos excel que me envian via mail y cargar los datos insertandolos en una hoja resumen, este proceso se repite cada mes.

Soy un novato en vb y lo estoy aprendiendo de forma autodidacta ( aunque he programado muchos años en dbase y cobol) asi que reconozco estar un poco perdido.

He creado un boton de carga de archivos al cual le he asignado una macro que selecciona el archivo que se desea cargar, hasta aqui bien, me abre el archivo seleccionado pero no consigo copiar el rango que necesito en la hoja resumen.

Os ruego en la medida de lo posible me orientéis .

Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Publicado por Rafael (65 intervenciones) el 13/08/2015 08:57:48
Si subieras el fichero que tienes, asi como al menos un fichero que abres podriamos ver el codigo que tienes y ayudarte a corregirlo...

Y este tema seria mas para el foro de Excel...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Publicado por JUAN (3 intervenciones) el 13/08/2015 10:34:51
Gracias por tu respuesta Rafael, lo que hice fue crear una macro desde el libro principal que selecciona un fichero excel, lo abre y después cuando intento seleccionar un rango del nuevo libro abierto no lo consigo.

Te copio codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SeleccionFichero()
Dim RUTAARCHIVO As String
Dim WB As Workbook
 
On Error Resume Next
 
RUTAARCHIVO = Application.GetOpenFilename(Title:="ARCHIVOS RESUMEN OFERTAS", filefilter:="Excel files (*.xlsx), *.xlsx")
Set WB = Workbooks.Open(RUTAARCHIVO, True, True)
 
 
Workbooks.Open Filename:=RUTAARCHIVO
 
'el archivo que abro es un excel, del cual quiero seleccionar un rango, copiarlo y pasarlo a una hoja del libro principal.
 Sheets("DATOS OFERTAS").Range("A12").Select
 ActiveCell.CurrentRegion.Select
 Selection.Copy
 
 Workbooks(1).Activate
 Sheets("RESUMEN OFERTAS").Range("A10").Select
 
 WB.Close False
 
 Set WB = Nothing
 
 
End Sub


Además. aunque eso es otro problema, quiero que al pegar inserte los datos y no sobreescriba las celdas.

De nuevo gracias, un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Publicado por Rafael (65 intervenciones) el 13/08/2015 12:38:08
Has probado con algo asi?

1
2
3
4
5
6
7
Workbooks(RUTAARCHIVO).Worksheets("DATOS OFERTAS").Activate
Range("A12").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
 
Workbooks(ARCHIVOCOPIA).Worksheets("RESUMEN OFERTAS").Activate
Range("A10").Paste


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

TRABAJAR CON DOS LIBROS EXCEL ABIERTOS

Publicado por JUAN (3 intervenciones) el 13/08/2015 15:20:57
Hola de nuevo, si lo he probado, no entiendo el motivo de que no pueda poner el libro abierto como activo y asi copiar los datos, quiza es algo de la configuracion del libro, no sé.

Mil gracias por tu ayuda Rafael, seguiré probando cosas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar