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
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.