AUXILIOOOOO!!!!!!!!!

21/09/2004 - 21:22 por sigma182 | Informe spam
Buenas tardes, me gustaria que alguna persona que lea esta pregunta
pudiera ayudarme.
estoy desarrollando unos macros en excel con el editor de visual basic, y
quiero vincular dos archivos distintos, es decir, quiero abrir la hoja 1
del libro "Book1.xls" y copiar la celda A1 en la hoja 1 del libro
"Book2.xls". trate usando la siguiente linea de codigo:

Application.Workbook("Book1.xls").Worksheets(Hoja1).Range("a1").Value Application.Workbook("Book2.xls").Worksheets(Hoja1).Range("a1").Value

pero al hacerlo me salio el error
"Run-Time 438: Object doesn't support this property or method".

alguno tiene alguna idea de porque sale este error, si (considero)
logicamente esta bien estrcturado el codigo?

si alguien sabe la respuesta, o tiene alguna otra sugerencia como por
ejemplo otro tipo de codigo, u otras sentencias, les agradeceria me
enviaran un mail a "sigma182@hotmail.com", o simplemente respondan en este
foro.

Gracias de Antemano.
 

Leer las respuestas

#1 Héctor Miguel
21/09/2004 - 22:07 | Informe spam
hola, Xavier !

... quiero abrir la hoja 1 del libro "Book1.xls" y copiar la celda A1 en la hoja 1 del libro "Book2.xls" [...]
Application.Workbook("Book1.xls").Worksheets(Hoja1).Range("a1").Value > Application.Workbook("Book2.xls").Worksheets(Hoja1).Range("a1").Value
pero al hacerlo me salio el error "Run-Time 438: Object doesn't support this property or method".
... porque sale este error, si (considero) logicamente esta bien estrcturado el codigo?



las 'sentencias' que estas usando... tienen [algunas] 'cosillas de mas' y 'cosillas de menos' :-) [p.e.]
->Application.<- es un 'calificador' de objetos 'opcional' [podrias 'aligerar' el codigo si lo omites]
->.Value<- es la propiedad 'por omision' de un objeto 'Range' [a menos que requieras 'otra' propiedad... -idem-]
->Workbook("Book1.xls")<- referenciar a un objeto libro 'requiere' del calificador 'en plural' ->Workbooks<-
->Worksheets(Hoja1)<- el 'indice' para 'señalar' un objeto worksheet NO es 'valido' [como lo estas usando]
si te refieres al nombre de la hoja... 'debe ir' delimatdo por dobles comillas ->Worksheets("Hoja1")<-
si te refieres a la posicion de la hoja en el orden de hojas en el libro [p.e.] ->Worksheets(1)<-
-> [solo por si 'las dudas'...] AMBOS libros [se supone que] deben estar abiertos.

haz una prueba con...
Workbooks("Book1.xls").Worksheets("Hoja1").Range("a1") = _
Workbooks("Book2.xls").Worksheets("Hoja1").Range("a1")

saludos,
hector.

Preguntas similares