¿Como abrir diferentes archivos dependiendo de lo escrito en un textbox?

Hola a todos!

Tengo varios archivos llamados:

semana01.xlsx

semana02.xlsx

semana03.xlsx, etc.

y quiero que al escribir en un textbox el numero de semana (por ejemplo: 02, 30, 45) y dar click en un botón abra el archivo correspondiente a la semana indicada.

¿Cómo puedo hacerlo? De antemano gracias por su ayuda

1 respuesta

Respuesta
1

Te mando mi solución. En mi ejemplo tengo un form con un textbox y un botón. En el textbox vamos a escribir las terminaciones de los archivos: 01, 22, 03...

Y esta es la macro que funciona al pulsar el botón:

Private Sub CommandButton1_Click()
ChDir "C:\Users\Luis\Documents\curso de excel\luis\"
largo = Len(TextBox1)
If largo = 2 Then
Workbooks.Open "semana" & TextBox1.Value
ElseIf largo = 1 Then
Workbooks.Open "semana0" & TextBox1.Value
Else
MsgBox "no se reconoce el text introducido"
End If
End Sub

IMPORTANTE:

Tendrás que modificar la primera línea de la macro donde empieza chdir...
En esa línea he anotado un path en el que están guardados los archivos que voy a abrir. En tu caso tendrás que modificar todo el entrecomillado poniendo tu path y dejando la barra del final.

No olvides finalizar la consulta

GRACIAS LUIS POR TU RÁPIDA Y EFICAZ RESPUESTA!!! no tienes idea de cuanto me has ayudado ya que con unas cuantas lineas de programa me has hecho mi trabajo 100 veces más rápido!!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas