Jump to content

Verificar archivo abierto


Recommended Posts

Hace 37 minutos , Janlui dijo:

Estoy tratando de implementar : If FileAlreadyOpen(nomb_archivo) Then

Pero me manda error.

Function esArchivoAbierto(rutaAlArchivo As String) As Boolean
  Dim archivo As Byte: archivo = FreeFile: On Error Resume Next
  Open rutaAlArchivo For Binary Access Read Write Lock Read Write As #archivo: Close #archivo
  esArchivoAbierto = Err.Number
End Function

OJO que no todos los tipos de archivo son bloqueados por el sistema para multiples aperturas (p.ej. *.txt y otros, y los *.pdf dependera de la aplicacion que los gestiona)

Link to comment
Share on other sites

Usa esta función:

Quote

Public Sub Test_IsFileOpen()

    Debug.Print CStr(IsFileOpen("R:\Test_File.doc"))

End Sub

Public Function IsFileOpen(ByVal filename As String) As Variant

    On Error Resume Next
    
    '--
    Dim FileNum As Integer
    FileNum = FreeFile()

    '--
    Open filename For Input Lock Read As #FileNum
    Close FileNum
    

    '--
    Dim errnum As Integer
    errnum = Err

    '--
    On Error GoTo 0
    Select Case errnum
      Case 0
        IsFileOpen = False
      Case 70
        IsFileOpen = True
      Case Else
        Error errnum
    End Select

End Function

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Antoni, si gracias disculpe acabo de responderte, si me funcion perfectamente
    • si muchas gracias me funciono perfectamente, que mal conmigo mismo que no lo respondi a tiempo, te pido disculpas en que memento se me fue lo que tenia que responderte...
    • Todavía estoy esperando que digas si te funcionó la respuesta a esta consulta https://ayudaexcel.com/foro/topic/45830-ayuda-con-una-macro-que-registre-los-datos-de-columna-a-dependiendo-de-la-columna-u-que-diga-no/
    • Buenos dias, expertos tengo una archivo que lo trabajo de forma manual; en la hoja "TARIFARIO" primero filtro en la columna K, luego filtro  en la columna C, y los registros filtrados comparo con los datos de la hoja "REDUNDANTE", entonces copio lo que lo corresponde y lo pego debajo de los datos filtrado, eso es la rutina hasta terminar todo. Ahora la pregunta es que si habra una macro que me ayude a realizar esos procesos para optimizar mi trabajo, la idea seria filtra lo que corresponde y ejecutar la macro. Por favor me puden ayudar si habria dicho codigo estare egradecido desde ya. Adjunto el archivo. REALIZAR MACROS.xlsm
    • Buenos días a tos mis colegas. Espero se encuentren con una salud excelente. Gracias Diego por sus palabras. Son muy reconfortantes. No soy de las personas que se rinden fácilmente, lucho hasta ver si existen posibilidades reales de logar lo que busco o hasta obtenerlo. De penurias ni hablar, creo que el mundo se ha convertido en un enorme CAOS, sobre todo después de esta horrible pandemia. Yo también soy de los "casados con excel" y mi esposa me dice "excel+excel", pero el camino recorrido no es nada comparado con el que me falta y ya tengo 56 años, las neuronas no son las mismas y el tiempo no perdona, pero sigo adelante, buscando la manera de aprender aunque sea un argumento de una función al día, con eso me siento satisfecho. Comparto con usted muchas cosas y tenemos un grupo de Miembros del Foro AyudaExcel que son verdaderos MAESTROS, por eso, cada vez que puedo trato de aprender de ellos, trato de absolver todo cuanto pueda. Mil gracias por sus palabras. Mis respetos y bendiciones y que tanto usted como su familia estén bien. Gracias a los demás miembros. Un abrazo Pino  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy