Este Codigo

[nanonroses]

Function IsOpen(FileName As String) As Boolean
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If UCase(wb.Name) = UCase(FileName) Then
            IsOpen = True...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jbf99]

Creo que es una funcion personalizada que comprueba si el nombre de un archivo ya existe .

 

[galileogali]

Establece si el nombre de un archivo esta incluido en la Clase Workbooks, que es el Conjunto de los Archivos XLS que estan abiertos al momento en que se efectúa la consulta. Lo cual resulta en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[nanonroses]

Thank You se pasaron
Saludos