Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buena tarde,
tengo este código que me abre un archivo que cambia de nombre todos los días, pero contiene los mismos campos que requiere la Macro. Lo que no puedo es cerrar el archivo, ya que el nombre de este archivo cambia cada día.
Application.ScreenUpdating = False
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "CARGAR ATCON DEL DIA"
Estilo = vbYesNo + vbCritical + vbDefaultButton2
Título = "Datos"
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
NombreArchivo = ActiveWorkbook.Name
ArchivoAAbrir = Application.GetOpenFilename("atcon_YYYYMMDD (*), *")
If ArchivoAAbrir = False Then
Sheets(1).Select
Sheets(1).Activate
End
End If
Workbooks.Open Filename:=ArchivoAAbrir
Necesito cerrar el archivo que abre este código. Gracias.