............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Solicitar Archivos .txt desde excel

Ver el tema anterior Ver el tema siguiente Ir abajo

Solicitar Archivos .txt desde excel

Mensaje por Tinno el Mar Feb 15, 2011 4:51 pm

Buenas tardes;

Espero puedan ayudarme a desifrar un código con el cual desde excel me solicite archivos .txt, solo que al abrirlos no me pregunte si deceo separarlo por columnas, espero me explique, ya que tengo 2 opciones:

1.- Solicitar con 2 inputbox
a) La Dirección (Path)
b) Nombre archivo txt

empieza:
'ruta = InputBox("Ingresa la ruta donde se encuentra el Archivo", "Marte", "H:\")
If ruta = "" Then goto empieza
nombrE:
'archivo = InputBox("Ingresa el nombre del Archivo", "Marte", "Algodondetexto.txt")
'If archivo = "" Then goto nombrE

y 2.- Este codigo:

Código:
Sub ArchivoTxt()
Dim App as Object
Set App = Application
        SendKeys "{*}"
        SendKeys "{.}"
        SendKeys "{T}"
        SendKeys "{X}"
        SendKeys "{T}"
        SendKeys "{ENTER}"
        SendKeys "{DEL}"
        If CBool(App.Dialogs(xlDialogOpen).Show) = False Then End
Rem En esta parte es cuando selecciono el archivo y me pregunta si deceo separar por columnas.
          With Application.ActiveWorkbook
                  ruta =.Path
              archivo = .Name
                        .Close False
          End With

End Sub
Alguien me puede ayudar?????
Gracias 1,000

Tinno

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : México, D.F.
Version de Excel : 2003-2007
Fecha de inscripción : 15/02/2011

Volver arriba Ir abajo

Re: Solicitar Archivos .txt desde excel

Mensaje por GalileoGali el Mar Feb 15, 2011 9:27 pm

Francamente no entiendo demasiado lo que quieres, pero bueno

prueba esto a ver si es lo que quieres
Sub abrirTxt()
Workbooks.Open ruta & "\" & nombre
End Sub

Sub test()
shell "notepad.exe " & ruta & "\" & Nombre, vbNormalFocus
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Solicitar Archivos .txt desde excel

Mensaje por Tatayayan el Miér Feb 16, 2011 1:18 pm

Hola, al reponder este post se me creó una duda:

Sub AbrirTXT()
Dim RutaTXT As String
RutaTXT = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If RutaTXT = "Falso" Then
MsgBox "Presionó Cancelar o EXC", 64, ""
Else
MsgBox "Archivo " & RutaTXT
Workbooks.OpenText RutaTXT
End If
End Sub

cuando aprece el cuadro de dialogo y presiono ESC o clic en el botón cancelar devuelve el string Falso, no el valor booleano False, lo comprobré con Vartype.

Bueno espero sea de ayuda
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Solicitar Archivos .txt desde excel

Mensaje por Tinno el Miér Feb 16, 2011 1:40 pm

Excel-ente;

Muchas gracias, justo es lo que buscaba, solicitar el archivo de texto desde el GetOpenFilename y lo mejor, vuelves a presionar Ctrl+F12 y ya no te solicita archivos de texto.

Con el comando de Shell esta increible.

Simplemente, perfecto.

Gracias por su ayuda

Tinno

Masculino Cantidad de envíos : 8
Edad : 33
Ciudad - Pais : México, D.F.
Version de Excel : 2003-2007
Fecha de inscripción : 15/02/2011

Volver arriba Ir abajo

Re: Solicitar Archivos .txt desde excel

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.