En este grupo En todos

Foro de Excel



usos texbox para abrir archivos

eaos
Santiago, Chile
Escrito por Eaos Eaos
el 16/06/2008

Hola tengo 2 texbox  en un en un formulario lo que que nesecito hacer es que en el primero ingresen años y en el segundo el nombre del archivo que deceo abrir

Lo que varia es la ruta ej: C:/misdocumentos/2008..

                                             C:/misdocumentos/2007...

                                             C:/misdocumentos/2006...

Ya que los nombre de los archivos son  los mismo para todos los años


Gracias

Eaos

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 16/06/2008
Y que has avanzado tu? Envialo para ayudarte mejor

Abraham
Eaos Eaos
Santiago, Chile
Escrito por Eaos Eaos
el 16/06/2008

ESTE CODIGO ME FUNCIONA BIEN PERO CON LA RUTA FIJA CUANDO INTENTO CAMBIARLA POR UN TEXBOX ES CUANDO TENGO EL PROBLEMA:

Private Sub CommandButton1_Click()
Dim Ruta As String
On Error GoTo Iraerror
Ruta = "D:ARCHIVOSPLANTILLAS2008"
    Workbooks. Open Filename:=Ruta & TextBox2. Value & ". Xls"
Exit Sub
Iraerror:
MsgBox "AÑO O NOMBRE DE ARTICULO INCORRECTO"
End Sub

COMO SE APRESIA  LA ULTIMA PARTE DE LA RUTA ES LA QUE DECEO CAMBIAR A DONDE DICE 2008 POR EL AÑO QUE EL USUARIO DECEE INGRESAR

PARA LIMITAR QUE EL USUARIO INGRESE SOLO NUMEROS AGREGUE ESTE CODIGO


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms. ReturnInteger)
Const Number$ = "0123456789" " solamente permite estos caracteres

If KeyAscii <> 8 Then
If InStr(Number$, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End If
End Sub

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 16/06/2008
Voy entendiendo, solo una ultima cosa, coloca un ejemplo del nombre de por lo menos 2 archivos, con todo y ruta completa. OJO, donde en la ruta van slash invertidos, coloca slash normales, ya que los invertidos, el foro se los "come"

Abraham
Eaos Eaos
Santiago, Chile
Escrito por Eaos Eaos
el 16/06/2008

EJ:

Ruta = "D:/ARCHIVOS/PLANTILLAS/2008/"

Workbooks. Open Filename:=Ruta & TextBox2. Value & ". Xls"

Ruta = "D:/ARCHIVOS/PLANTILLAS/2007/"

Workbooks. Open Filename:=Ruta & TextBox2. Value & ". Xls"

Ruta = "D:/ARCHIVOS/PLANTILLAS/2006/"

Workbooks. Open Filename:=Ruta & TextBox2. Value & ". Xls"

LO QUE QUIERO QUE EN LA RUTA DONDE DICE 2008; 2007. ETC

ESA PARTE LA PUEDA INGRESAR POR INTERMEDIO DE UN TEXBOX LO DEMAS ME FUNCIONA SIN PROBLEMAS

GRACIAS

EAOS

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 16/06/2008

Asi

Ruta = "D:/ARCHIVOSPLANTILLAS/"
    Workbooks. Open Filename:=Ruta & TextBox2 & "/" & Textbox1  & ". Xls"

Suponiendo que en Textbox2 colocas el año, y en Textbox1 el nombre del archivo.   Mira bien la cantidad de slash que he colocado, que creo ahi radicaba tu problema. No olvides cambiarlos por slas invertidos

Abraham