Abrir diferentes archivos dependiendo de los datos de un textbox
Hola!
Espero que puedas ayudarme, tengo varios archivos llamados:
semana01.xlsm
semana02.xlsm, etc
y quiero que al escribir en un textbox el número de semana (ejemplo: 01, 30, 45, etc) abra el archivo correspondiente.
de antemano gracias por tu tiempo y ojalá puedas ayudarme
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro para abrir un archivo poniendo 01, 02, 30, etc.
Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / UserForm
4. En el panel del UserForm creas un TextBox, que se llame TextBox1
5. Le das dobleclik al TextBox1 y copias la macro
6. Para ejecutarla presiona F5
'***Macro, para abrir un libro capturado en el textbox
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Por.DaM
On Error Resume Next
ruta = "C:\Documents and Settings\DAMOR\Mis documentos\docs\Soporte expertos\"
If TextBox1 <> "" Then
Workbooks.Open Filename:=ruta & "semana" & TextBox1 & ".xls"
If Err.Number = 0 Then
'El archivo no existe
MsgBox "El archivo se abrió"
Else
MsgBox "El archivo no existe, error " & Err.Number
End If
Else
MsgBox ("No escribió nada")
Exit Sub
End If
End Sub
'***MacroNota: para abrir el archivo tienes que dar doble click dentro del textbox
Saludos. Dam
