Visual Basic para Aplicaciones - trabajar con dos libros de trabajo

Life is soft - evento anual de software empresarial
 
Vista:

trabajar con dos libros de trabajo

Publicado por bekyna (44 intervenciones) el 13/07/2005 18:16:17
Esto lo utilizo para poner valores en mi libro de trabajo actual y funciona adecuadamente
Worksheets("Resultado_Promedios").Activate
Range("A2").Select
ActiveCell.Value = "1"

El problema que tengo es que ahora necesito poner mis datos de mi libro actual de trabajo en otro la hoja uno de otro libro (archivo.xls) con el que no estoy trabajando, utilizo el siguiente código:
Application.Workbooks("comparativo MER.xls").Worksheets("DATOS").activete
valor1 = "B" & CStr(cReglonFin + 1)
Range("valor1").Select
ActiveCell.Value = dato1

Pero me envía errores, ojala puedan darme otra sugerencia.

Gracias.
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

RE:trabajar con dos libros de trabajo

Publicado por cristian vasquez (16 intervenciones) el 13/07/2005 20:55:21
viejo si lo unico que estas poniendo es eso, el proble es que para poder utilizar el libro "comparativo MER.xls", primero debe de abrirlo con el metodo open del objeto workbooks asi:

workbooks.open "C:\donde sea que este \ comparativo MER.xls"

porque una vez abierto este libro pertenecera a la coleccion workbooks ( que representa estrictamente los libros abiertos )

despues puedes utilizar tu codigo como esta.
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

no reconoce ruta...

Publicado por bekyna (44 intervenciones) el 13/07/2005 21:47:10

gracias por contestar hice la prueba de dos formas
1era.
ruta = "C:\Documents and Settings\orivera\Escritorio\comparativo MER_1.xls"
Application.Workbooks.Open (ruta)
2da. directamente y en las dos me marca el mismo error que no reconoce la ruta y que verifique, claro que la ruta esta bien.
Application.Workbooks.Open "C:\Documents and Settings\orivera\Escritorio\comparativo MER_1.xls"

recibe saludos cordiales.
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

gracias

Publicado por bekyna (44 intervenciones) el 13/07/2005 22:06:23
he resuelto el problema agradezco tu colaboracion

que tengas un gran dia.
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