otra cosa, guardar
Publicado por ricaurtem (206 intervenciones) el 20/12/2006 22:08:49
tengo esto ahora, guarda bien y todo, excepto cuando ya existe el archivo y pregunta deseas reemplazar si,no o cancelar.
y me sale error si pongo no o cancelar, supondre en el metodo SaveAS y la verdad no se manejar cuando pasa eso, alguna idea???
'GUARDANDO EL NUEVO
FNAME = Application.GetSaveAsFilename("MM_" & FILE, "Libro de Microsoft Office Excel (*.xls), *.xls")
If FNAME <> False Then
Application.ScreenUpdating = False
FILE2 = Right(FNAME, Len(FNAME) - InStrRev(FNAME, "\"))
ActiveWorkbook.SaveAs Filename:=FNAME
ActiveWorkbook.Close
Workbooks(MACRONAME).Activate
Worksheets(HOJ1).Select
Else
'CERRAR Y DESCARTAR CAMBIOS
Workbooks(FILE).Close SaveChanges:=False
End If
y me sale error si pongo no o cancelar, supondre en el metodo SaveAS y la verdad no se manejar cuando pasa eso, alguna idea???
'GUARDANDO EL NUEVO
FNAME = Application.GetSaveAsFilename("MM_" & FILE, "Libro de Microsoft Office Excel (*.xls), *.xls")
If FNAME <> False Then
Application.ScreenUpdating = False
FILE2 = Right(FNAME, Len(FNAME) - InStrRev(FNAME, "\"))
ActiveWorkbook.SaveAs Filename:=FNAME
ActiveWorkbook.Close
Workbooks(MACRONAME).Activate
Worksheets(HOJ1).Select
Else
'CERRAR Y DESCARTAR CAMBIOS
Workbooks(FILE).Close SaveChanges:=False
End If
Valora esta pregunta
0