Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

porfa ayudenme con una macros

Estas en el tema de porfa ayudenme con una macros en el foro de Visual Basic clásico en Foros del Web. hola que tal, para empezar no se si estoy en el lugar correcto... pues bien tengo una macro que basicamente selecciona archivos de excel abiertos ...
  #1 (permalink)  
Antiguo 05/08/2009, 15:46
 
Fecha de Ingreso: agosto-2009
Mensajes: 1
Antigüedad: 14 años, 8 meses
Puntos: 0
porfa ayudenme con una macros

hola que tal, para empezar no se si estoy en el lugar correcto... pues bien tengo una macro que basicamente selecciona archivos de excel abiertos y los integra a un nuevo libro como hojas nuevas... el problemas es el siguiente... no muchas veces esos archivos se tienen que abrir... lo que ocasiona que la macros se detenga al no encontrarlos... lo que necesito es que si no encuentra un archivo continue con el siguiente hasta terminar.... mi macro basicamente es la siguiente:

Sheets("Pot 1 ").Select
Sheets("Pot 1 ").Move After:=Workbooks("FRACC.xlsm").Sheets(2)

Sheets("puesto 1 ").Select
Sheets("puesto 1 ").Move After:=Workbooks("FRACCIONES.xlsm").Sheets(3)

Sheets("uEnlace 1 ").Select
Sheets("uEnlace 1 ").Move After:=Workbooks("FRACCIONES.xlsm").Sheets(4)

como veran el nombre del archivo que busca es POT 1, despues "puesto 1" y por ultimo "uEnlace1",
lo que necesito es que si no encuentra por ejemplo el archivo puesto 1" lo deje de lado y continue con el archivo "uEnlace 1".


por favor ayudenme
  #2 (permalink)  
Antiguo 07/08/2009, 10:54
 
Fecha de Ingreso: enero-2007
Ubicación: 9 de julio
Mensajes: 111
Antigüedad: 17 años, 3 meses
Puntos: 2
Respuesta: porfa ayudenme con una macros

Proba asi:

on error resume next 'hace que ante un error siga y ejecute la linea que viene
Sheets("Pot 1 ").Select
Sheets("Pot 1 ").Move After:=Workbooks("FRACC.xlsm").Sheets(2)

Sheets("puesto 1 ").Select
Sheets("puesto 1 ").Move After:=Workbooks("FRACCIONES.xlsm").Sheets(3)

Sheets("uEnlace 1 ").Select
Sheets("uEnlace 1 ").Move After:=Workbooks("FRACCIONES.xlsm").Sheets(4)

on error goto 0 ' habilita el aviso de errores. o sea si hay te los muestra
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:39.