Problema con las instrucciones DisplayAlerts y ActiveWorkbook.Save

12/11/2007 - 15:47 por Noriel Alejandro | Informe spam
Buenos días, tengo un segmento de codigo asociado a un boton que me funciona
perfectamente en Excel 2007, sin enbargo en 2003 manda error. A continuación
el código:

ThisWorkbook.Sheets(1).Unprotect ("12345") ' Esto porque el libro esta
inicialmente protegido

With Application

.DisplayAlerts = False '****En esta linea esta enviando error

If (Dir("c:\FormPreparacion", vbDirectory) = "") Then
MkDir ("c:\FormPreparacion")
End If

nomfile = "c:\FormPreparacion\" & "FrmSolicitud" & Range("F3") & ".xls"

.ActiveWorkbook.SaveCopyAs Filename:=nomfile '****En esta linea esta
enviando error

.DisplayAlerts = True

End With

ThisWorkbook.Sheets(1).Protect ("12345")

Los dos mensajes de error que esta enviando en 2003 son: que no puede
ejecutar la acción del metodo.

De antemano gracias por la ayuda que me puedan brindar.

NCA.

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
12/11/2007 - 22:27 | Informe spam
hola, Noriel !

Mostrar la cita
1) el concepto del error que obtienes ahora, es diferente del error que comentaste en tu consulta original -?-

2) (hasta donde se) el problema con el error 91, es probable que no lo este provocando la linea que expones (directamente)
(generalmente) tiene que ver con variables de objeto NO establecidas (quizas "devueltas" a Nothing/Null/... ?)
o instrucciones With...End With mezcladas con algun GoTo fuera del bloque
o librerias perdidas (o corruptas) en (menu) herramientas / referencias... -> en el editor de vba

3) (aparentemente) las fracciones de codigo que expones estan formando parte de codigos mas extensos

comentas (si detectas) algun detalle mas significativo ?
saludos,
hector.

__ las consultas anteriores __
Mostrar la cita
Ads by Google
Search Busqueda sugerida