............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Dar opción a querer guardar o no guardar un archivo

Ver el tema anterior Ver el tema siguiente Ir abajo

Dar opción a querer guardar o no guardar un archivo

Mensaje por pedrosilv el Jue Mayo 06, 2010 9:01 pm

Buenas tardes estimados foristas.

Acudo nuevamente a ustedes para ver si me pueden ayudar en lo siguiente:

Tengo una macro que me guarda los datos que se encuentran en la hoja "Coordenadas" en un nuevo archivo y que lo almacena en la siguiente dirección: "C:\Excel". La macro es la siguiente:

Código:
Sub crearhoja()
Dim cont, path, coj As String
uf = Sheets("coordenadas").[a65000].End(xlUp).Row
Rango = Sheets("coordenadas").Range("a1:g" & uf).Row
    cont = Sheets("Coordenadas").Range("o2") 'Aqui cojo este valor como referencia para guardar
    Sheets("Coordenadas").Range("o2") = cont
    coj = cont
    coj = coj & ".xls"
    path = "C:\Excel\" & cont & ".xls"
    Workbooks.Add
    ActiveWorkbook.SaveAs (path)
    Workbooks.Open (path)
    Workbooks("Base Pinfor.xlsm").Sheets("coordenadas").Range("a1:g" & uf).Copy
    Workbooks(coj).Activate
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rango1 = Sheets("hoja1").[a65000].End(xlUp).Row
    Reff = Sheets("hoja1").Range("a1:g" & Rango1).Row
    ActiveWorkbook.Names.Add Name:="Polígono", RefersToR1C1:= _
        "=OFFSET(Hoja1!C1,0,,COUNTA(Hoja1!C1),7)"
    ActiveWorkbook.Names("Polígono").Comment = ""
    Workbooks(coj).Close
    Workbooks("Base Pinfor.xlsm").Activate
    Application.WindowState = xlMaximized
End Sub

Actualmente, al momento de que se crea el nuevo archivo me sale un mensaje de que si deseo guardar los cambios o no. Si le doy no, automáticamente se produce un error en esta línea (lo mismo sucede cuando le doy "No" a la opción de cuando aparece el mensaje de que el archivo ya existe y si deseo reemplazarlo):

Código:
ActiveWorkbook.SaveAs (path)

Habrá una manera de que si doy la opción "No" , no arroje ningún error y el archivo no se guarde (cuando ya existe uno con el mismo nombre), o no se guarden los cambios?

Agradezco desde ya su ayuda.

Saludos desde Guatemala.

PD:Acá dejo el enlace para el archivo


pedrosilv

Masculino Cantidad de envíos : 85
Edad : 31
Ciudad - Pais : Guatemala
Version de Excel : 2003-2007
Fecha de inscripción : 16/04/2009

Volver arriba Ir abajo

Re: Dar opción a querer guardar o no guardar un archivo

Mensaje por Tatayayan el Jue Mayo 06, 2010 9:56 pm

Hola, tienes que ver:

1) application.DisplayAlerts
2) On Error Goto

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Dar opción a querer guardar o no guardar un archivo

Mensaje por Sigfrido Del Rio el Dom Jun 06, 2010 7:57 pm

Sub crearhoja()
Dim cont, path, coj As String
uf = Sheets("coordenadas").[a65000].End(xlUp).Row
Rango = Sheets("coordenadas").Range("a1:g" & uf).Row
cont = Sheets("Coordenadas").Range("o2") 'Aqui cojo este valor como referencia para guardar
Sheets("Coordenadas").Range("o2") = cont
coj = cont
coj = coj & ".xls"
'path = "C:\Excel\" & cont & ".xls"
path = "C:\" & cont & ".xls"
Workbooks.Add


On Error GoTo Salida
ActiveWorkbook.SaveAs Filename:=path
'ActiveWorkbook.SaveAs (path)
Workbooks.Open Filename:=path

Application.DisplayAlerts = False
Workbooks("Base Pinfor.xls").Sheets("coordenadas").Range("a1:g" & uf).Copy
Workbooks(coj).Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rango1 = Sheets("hoja1").[a65000].End(xlUp).Row
Reff = Sheets("hoja1").Range("a1:g" & Rango1).Row
ActiveWorkbook.Names.Add Name:="Polígono", RefersToR1C1:= _
"=OFFSET(Hoja1!C1,0,,COUNTA(Hoja1!C1),7)"
ActiveWorkbook.Names("Polígono").Comment = ""
Workbooks(coj).Close
Salida:
Application.DisplayAlerts = True
Workbooks("Base Pinfor.xls").Activate
Application.WindowState = xlMaximized
End Sub

Sigfrido Del Rio

Masculino Cantidad de envíos : 3
Edad : 58
Ciudad - Pais : México
Version de Excel : 2007
Fecha de inscripción : 06/06/2010

Volver arriba Ir abajo

Re: Dar opción a querer guardar o no guardar un archivo

Mensaje por Contenido patrocinado Hoy a las 11:26 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.