Home > Foro de Excel >

Debates de Excel > Abrir un archivo a traves TextBox

Grupo de Excel
Foro de Excel
18145 Debates | 2011 Documentos | 1 Vídeo | 1 Test | 1 Blog | 675 Imágenes | 16688 Miembros

Abrir un archivo a traves TextBox

Escrito por Eaos Eaos el 12/06/2008

Hola me gustaria saber como puedo abrir un archivo de exel, ingresando el nombre de este en un TextBox y luego presionando aceptar (CommandButton) se abra el dicho archivo

Grasias

Eaos


Citar  |  
Ver mensaje      

Johnny Pacheco
El Salvador, El Salv...
Escrito por Johnny Pacheco el 12/06/2008

Hola Eaos, prueba con algo como esto:


Private Sub CommandButton1_Click()
ruta = "C:Documents and SettingsJohnnyMis documentos"
    Workbooks. Open Filename:=ruta & TextBox1. Value
End Sub

Saludos,

Johnny


Citar  |  
Ver mensaje     

Eaos Eaos
Santiago, Chile
Escrito por Eaos Eaos el 12/06/2008
"Hola Eaos, prueba con algo como esto:
 
Private Sub CommandButton1_Click()
ruta = "C:Documents and SettingsJohnnyMis documentos"
    Workbooks. Open Filename:=ruta & TextBox1. Value
End Sub

Saludos,
Johnny
"

por Johnny Pacheco (Junio 2008)


Lo he intentado de intentado y no me funciona! He cambiado la ruta por la direcion en que se encuentran los archivos

Necesito mas ayuda

Grasias

Eaos



Citar  |  
Ver mensaje     

Abraham Valencia
Lima, Perú
Escrito por Abraham Valencia el 12/06/2008
Lo que coloco Jhonny  es correcto, simplemente si tu ruta esta bien colocada, pues no abra problema. No olvides que el foro se "come" los slahs invertidos de las rutas, asi que no olvides colocarlos. Ah, no olvides el ultimo slash:


ruta = "C:/Documents and Settings/Johnny/Mis documentos/"

 
Yo lo he colocado como slahs normal, pero debes colocarlo con el invertido, como en las rutas

Otra cosa, en el TextBox, debes colocar el nombre con su debida extension

Archivodecosotos. Xls

Sin, tampoco funcionara

Abraham

Citar  |  
Ver mensaje     

Eaos Eaos
Santiago, Chile
Escrito por Eaos Eaos el 13/06/2008

Gracias ahora me funciono a la perfecion pero me gustaria saber si se puede realizar sin colocarle la extension ya que los archivos que que quiero abrir son de excel con la extencion. Xls


Eaos





Citar  |  
Ver mensaje     

Eaos Eaos
Santiago, Chile
Escrito por Eaos Eaos el 13/06/2008

Ya he solucionado el problema

Ingrese este codigo

Private Sub CommandButton1_Click()
ruta = "C:/Documents and Settings/Johnny/Mis documentos/"

    Workbooks. Open Filename:=ruta & TextBox1. Value + ". Xls"
End Sub

He creado una suma

Por supuesto que con slash invetidos

Pero ahora me encuentro con el siguiente problema que si ingreso un nobre de un archivo que no existe me aparese el mensaje depurar y se sale del programa , me gustaria que aparesiera un mensaje de error avisando de que el archivo nose encuentra creado.

Espero que me puedan ayudar con esto

Gracias

Eaos



Citar  |  
Ver mensaje     

Abraham Valencia
Lima, Perú
Escrito por Abraham Valencia el 13/06/2008

1- Es hora de leer sobre VBA
2- Un modo de hacerlo:

Private Sub CommandButton1_Click()
Dim Ruta as String
On Error Goto Iraerror
ruta = "C:/Documents and Settings/Johnny/Mis documentos/"
    Workbooks. Open Filename:=ruta & TextBox1. Value & ". Xls"
Exit Sub
Iraerror:
Msgbox "No existe el archivo"
End Sub

Abraham


Citar  |  
Ver mensaje     

Luis Lopes
Chequia, Chequia
Escrito por Luis Lopes el 19 de Octubre

Por favor no funciona este codigo pongo todo tal cual y no hace hace falta podria dar el codigo completo para el textbox y el commandbuton gracias


Citar  |  
Ver mensaje     

Cristian Vasquez
Medellín, Colombia
Escrito por Cristian Vasquez el 19 de Octubre

Oye y por que te complicas para hacerlo con texbox, hazlo asi, de por si los usuarios prefieren las convenciones asi que haz de escoger un archivo pues utilizas la ventana de escoger archivos normal y lo abres:

Sub llamar()

Dim RUTA As String

RUTA = Application. GetOpenFilename

If futa <> False then


Workbooks. Open RUTA

End if
End Sub

Un saludo y espero que te sirva,


Citar  |  
Ver mensaje     

Luis Lopes
Chequia, Chequia
Escrito por Luis Lopes el 20 de Octubre

La idea es que tengo 20 usuarios al cual le asigno a cada uno un libro de excel con sus datos personales. Cada libro le he puesto como nombre de archivo 1. Xls ,2. Xls y asi hasta 20. Xls el tema es que para mi comodidad de no estar buscando cada unos los libros en la carpeta clientes necesito que mediante un texboxt y un boton hechos con visual basic poder ingresar el numero de archivo excel en el texboxt y con el boton abrir el libro excel correspondiente para asi aceder a sus datos personales. He puesto estos codigos y no me funciona. Por favor en base a estas circunstancias que posibilidades existen. Muchas gracias por el tiempo y la paciencia amigos.


Citar  |  
Ver mensaje     

Luis Lopes
Chequia, Chequia
Escrito por Luis Lopes el 21 de Octubre

Hola necesito ayuda Por favor como puedo vicular varios formularios mediante un textbox. Es decir tengo 20 formularios en un mismo proyecto y necesito acceder a cualquiera de ellos mediante un textbox ingresando su numero correspondiente. ¿Como puedo lograrlo? Gracias


Citar  |  
Ver mensaje     


Responder


Quiero recibir alertas por email cuando haya mensajes nuevos en este debate

Al escribir en el debate:
  1. Repasa la ortografía y no escribas en formato SMS.
  2. Lee el texto dos veces antes de publicar.
  3. No escribas todo en mayúsculas o negritas.
 
Páginas internacionales: España  |  Italia  |  Francia  |  México  |  Alemania  |  Reino Unido  |  Argentina  |  Chile  |  Colombia  |  USA

Búsquedas frecuentes: individuo y comunidad que es outlook nido de abeja perifericos de almacenamiento cardiomegalia tratamiento

Emagister cumple la Ley Orgánica 15/1999 de 13 de diciembre, de Protección de datos de Carácter Personal, y posee el código de inscripción nº 2002010053 del Registro General de la Agencia de Protección de Datos. Copyright © 1999/2000 - Grupo Intercom - Todos los derechos