Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » extraer información de más de 100 libros de Excelcon formato .xlsm

Visual Basic - extraer información de más de 100 libros de Excelcon formato .xlsm

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

extraer información de más de 100 libros de Excelcon formato .xlsm

Publicado por Diego (1 intervención) el 12/07/2017 20:24:26
La verdad es que soy totalmente nuevo en macros y VBA y resulta que me pidieron que hiciera un informe donde se extrajera cierta información de un grupo de libros(mas de 100) de excel/macros osea con formato ".xlsm" que a su vez tienes contraseña los libros, y aunque es la misma contraseña para todos.

la información que me piden esta en los mismos rangos en todos los libros( A33-V99). Ocupe unas macros para copiar los archivos a un libro nuevo pero para cada uno me pide la contraseña. LA CLAVE ES: to2017

mi pregunta es si alguien sabe de como podría realizar lo que me piden

en el archivo adjunto hay algunos de los libros de los que tengo que extraer la información, por si alguien se interesa en ayudarme.




Los archivos originales están en una carpeta compartida en red vía IP

\\10.5.154.71\to_ugha
esta es la dirección donde se van agregando los excel.


lo ideal seria todo en una hoja así aplicar filtros de información por rut para que las enfermeras tengan un mejor acceso
y que se guarden en la misma Carpeta: To_ugha

igualmente a esta carpeta se le irán agregando mas archivos, igualmente lo ideal seria que al actualizar el archivo se agregaran automáticamente.

Si me pueden ayudar muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

extraer información de más de 100 libros de Excelcon formato .xlsm

Publicado por Antoni Masana (565 intervenciones) el 13/07/2017 08:31:40
Buenos dias.

Si me permites una sugerencia, te comento un par de mejoras que pueden ayudar. Tomo un par de eventos:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CheckBox78_Click()
 
If CheckBox78 = True Then
 
CommandButton7.Enabled = False
CommandButton7.Visible = False
 
Else
 
CommandButton7.Enabled = True
CommandButton7.Visible = True
 
End If
 
End Sub
 
Private Sub CheckBox79_Click()
 
If CheckBox79 = True Then
 
CommandButton3.Enabled = False
CommandButton3.Visible = False
 
Else
 
CommandButton3.Enabled = True
CommandButton3.Visible = True
 
End If
 
End Sub

En lugar de ponerlos así es mejor de esta forma y añadir un pequeño comentario porque sino a la larga te pierdes:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
' ----- Pestaña MMSE - No Aplica

Private Sub CheckBox78_Click()
    If CheckBox78 = True Then
       CommandButton7.Enabled = False
       CommandButton7.Visible = False
    Else
       CommandButton7.Enabled = True
       CommandButton7.Visible = True
    End If
End Sub
 
' ----- No se donde esta

Private Sub CheckBox79_Click()
    If CheckBox79 = True Then
       CommandButton3.Enabled = False
       CommandButton3.Visible = False
    Else
       CommandButton3.Enabled = True
       CommandButton3.Visible = True
    End If
End Sub

Asi es mas corto, se lee mejor y te dice donde esta el objeto o que hace.

Buscando el que y el donde estan los objetos del fichero 6848361-6.xlsm he encontrado en la pestaña MMSE que hay dos botones, el CommandButton3 y CommandButton10 y el segundo no tiene código y esta encima del primero.

Y en respuesta a tu problema:

1
2
Workbooks.Open Filename:="C:\6848361-6.xlsm", _
               Password:="to2017"


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar