** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - saber si un libro excel esta ya abierto
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradosaber si un libro excel esta ya abierto

 Responder Responder
Autor
Mensaje
porqueroles Ver desplegable
Habitual
Habitual


Unido: 18/Enero/2011
Estado: Sin conexión
Puntos: 53
Enlace directo a este mensaje Tema: saber si un libro excel esta ya abierto
    Enviado: 01/Noviembre/2017 a las 10:50
mediante un recordset cargamos los distintos libros excel sobre los que vamos a trabajar, y cada una de sus hojas. Mediante un bucle Do While Not rst.EOF vamos recorriendo cada valor del recordset, seleccionando cada libro, abriendo cada una de sus hojas y exportando a ellas valores desde acces.
Mediante que función podría saber si el libro al que me lleva el bucle está ya abierto y evitar que excel me abra un mensaje que me diga "el libro ya está abierto, si no lo guarda perderá los cambios realizados" etc
He probado varios ejemplos encontrados en la red pero siempre me da error, problemas al declarar los parámetros de la funcion.
conocen alguna función facil de usar desde acces. 
saludos, gracias 

Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3177
Enlace directo a este mensaje Enviado: 01/Noviembre/2017 a las 15:19
Hola.
Prueba con un código parecido a:

Dim milibro As object
Dim esta As Boolean
Dim mifichero As String
esta = False
mifichero = "E:\rutacompleta\libro1.xlsx"
For Each milibro In miexcel.Application.Workbooks
  If milibro.FullName = mifichero Then
   esta = True
   Exit For
  End If
Next
If esta = True Then
  MsgBox ("SI esta")
Else
  MsgBox ("NO esta")
End If

Está escrito de memoria, así es que....
Espero que ayude a resolver la duda
Ya comentas.
Un saludo a todos
Arriba
porqueroles Ver desplegable
Habitual
Habitual


Unido: 18/Enero/2011
Estado: Sin conexión
Puntos: 53
Enlace directo a este mensaje Enviado: 03/Noviembre/2017 a las 11:09
funciona correctamente.
muchas gracias prga.
saludos

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable