Cómo machacar un archivo excel si existe

52 views
Skip to first unread message

avazq...@gmail.com

unread,
Oct 7, 2021, 9:49:17 AM10/7/21
to oo...@googlegroups.com

Buenas.

Necesito que si al crear un archivo Excel existe el mismo en la carpeta, no me pregunte si deseo sobreescribirlo.

Cómo puedo hacerlo?

Gracias

Saludos.

 

Antonio Vázquez

avazq...@gmail.com

 

Harold San Lee

unread,
Oct 8, 2021, 12:16:20 AM10/8/21
to oo...@googlegroups.com
Saludos Antonio,
Debes de hacerlo de la siguiente forma Si Utilizas OOHG.

         If File('D:\Archivos\XLS\MiArchivo.xlsx')
            FERASE('D:\Archivos\XLS\MiArchivo.xlsx')
         EndIf
         oAS:SaveAs( 'D:\Archivos\XLS\MiArchivo.xlsx' )  

Realmente no he encontrado de qué otra forma se puede hacer, si alguien en el foro sabe otra forma por favor compartirla.

Antonio por Favor nos Cuentas cómo lo resolviste.


Harold San Lee.


--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/030001d7bb82%241e6902a0%245b3b07e0%24%40gmail.com.

Jorge Gárate

unread,
Oct 8, 2021, 1:47:07 AM10/8/21
to oo...@googlegroups.com

Prueba con DisplayAlert este ejemplo lo encontré por ahí y dice que así se hace:

 

Application.DisplayAlerts = False

xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")

If (xFileName <> "") Or (xFileName <> "False")

  ActiveWorkbook.SaveAs Filename:=xFileName

End If

Application.DisplayAlerts = True

 

 

 

Saludos,

 

Jorge

 

--

Antonio Vázquez

unread,
Oct 8, 2021, 3:07:20 AM10/8/21
to oo...@googlegroups.com
Gracias

Obtener Outlook para Android

From: oo...@googlegroups.com <oo...@googlegroups.com> on behalf of Jorge Gárate <jga...@wados.cl>
Sent: Friday, October 8, 2021 7:44:57 AM
To: oo...@googlegroups.com <oo...@googlegroups.com>
Subject: RE: [oohg] Cómo machacar un archivo excel si existe
 
Reply all
Reply to author
Forward
0 new messages