Abrir

Me he equivocado respecto al metodo de abrir el archivo fuera de Excel - es
mas simple:

Sub test()
Dim varFichero As Variant
varFichero = Application.GetOpenFilename("Archivos de
texto(*.txt),*.txt")
ID = Shell("notepad.exe " & varFichero, vbMaximizedFocus)
End Sub

Ojo q ninguno de los dos macros contiene proteccion contra errores tipo
"tipo de archivo equivicado", "usuario pulsa cancelar", "usuario no
selecciona ningun archivo y pulsa abrir", etc.

Saludos,
KL

"KL" wrote in message
news:

Prueba esto (para abrir el *.txt en Excel):
Sub test()
Dim varFichero As Variant
varFichero = Application.GetOpenFilename("Archivos de
texto(*.txt),*.txt")
Workbooks.OpenText varFichero
End Sub

si necesitas abrirlo fuera de Excel tendras q crear el objeto como por
ejemplo:
Set fs = CreateObject("Scripting.FileSystemObject")


"Fernando Kohan" wrote in message
news:%

Me dice no coinciden los tipos, que sera.

Fenarro

"Fernando Arroyo" escribió en el mensaje
news:#
A mí las siguientes líneas me funcionan:

Dim varFichero As Variant
If Application.GetOpenFilename("Archivos de texto(*.txt),*.txt") Then
Workbooks.Open varFichero

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Kohan" escribió en el mensaje
news:

Fernando excelente.

El problema es el siguiente. El archivo es un TXT, modifique lo que me
dijisten a *.txt
La macro funciona perfecto pero cuando abro el archivo me dice se a
producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos

Que significa.

Gcs

fenarro

Excelente... Se pasaron muchas gracias KL y Fernando

Fenarro

"KL" escribió en el mensaje
news:

Me he equivocado respecto al metodo de abrir el archivo fuera de Excel -

es

mas simple:

Sub test()
Dim varFichero As Variant
varFichero = Application.GetOpenFilename("Archivos de
texto(*.txt),*.txt")
ID = Shell("notepad.exe " & varFichero, vbMaximizedFocus)
End Sub

Ojo q ninguno de los dos macros contiene proteccion contra errores tipo
"tipo de archivo equivicado", "usuario pulsa cancelar", "usuario no
selecciona ningun archivo y pulsa abrir", etc.

Saludos,
KL

"KL" wrote in message
news:
> Prueba esto (para abrir el *.txt en Excel):
> Sub test()
> Dim varFichero As Variant
> varFichero = Application.GetOpenFilename("Archivos de
> texto(*.txt),*.txt")
> Workbooks.OpenText varFichero
> End Sub
>
> si necesitas abrirlo fuera de Excel tendras q crear el objeto como por
> ejemplo:
> Set fs = CreateObject("Scripting.FileSystemObject")
>
>
> "Fernando Kohan" wrote in message
> news:%
>>
>>
>> Me dice no coinciden los tipos, que sera.
>>
>> Fenarro
>>
>> "Fernando Arroyo" escribió en el mensaje
>> news:#
>> A mí las siguientes líneas me funcionan:
>>
>> Dim varFichero As Variant
>> If Application.GetOpenFilename("Archivos de texto(*.txt),*.txt")

Then

>> Workbooks.Open varFichero
>>
>> Un saludo.
>>
>>
>> Fernando Arroyo
>> MS MVP - Excel
>>
>> "Fernando Kohan" escribió en el mensaje
>> news:
>>> Fernando excelente.
>>>
>>> El problema es el siguiente. El archivo es un TXT, modifique lo que me
>>> dijisten a *.txt
>>> La macro funciona perfecto pero cuando abro el archivo me dice se a
>>> producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos
>>>
>>> Que significa.
>>>
>>> Gcs
>>>
>>> fenarro
>>>
>>
>>
>
>

Aqui tienes las dos macros con proteccion:

Sub test1()
Dim nFichero As Variant
nFichero = Application.GetOpenFilename("Archivos detexto(*.txt),*.txt")
Select Case VarType(nFichero)
Case vbBoolean
MsgBox "Canceled"
Case Else
Workbooks.OpenText nFichero
End Select
End Sub

Sub test2()
Dim nFichero As Variant
Dim Fichero As Variant
nFichero = Application.GetOpenFilename("Archivos de texto(*.txt),*.txt")
Select Case VarType(nFichero)
Case vbBoolean
MsgBox "Canceled"
Exit Sub
Case Else
Fichero = Shell("notepad.exe " & nFichero, vbMaximizedFocus)
End Select
End Sub

KL

"KL" wrote in message
news:

Me he equivocado respecto al metodo de abrir el archivo fuera de Excel -
es mas simple:

Sub test()
Dim varFichero As Variant
varFichero = Application.GetOpenFilename("Archivos de
texto(*.txt),*.txt")
ID = Shell("notepad.exe " & varFichero, vbMaximizedFocus)
End Sub

Ojo q ninguno de los dos macros contiene proteccion contra errores tipo
"tipo de archivo equivicado", "usuario pulsa cancelar", "usuario no
selecciona ningun archivo y pulsa abrir", etc.

Saludos,
KL

"KL" wrote in message
news:

Prueba esto (para abrir el *.txt en Excel):
Sub test()
Dim varFichero As Variant
varFichero = Application.GetOpenFilename("Archivos de
texto(*.txt),*.txt")
Workbooks.OpenText varFichero
End Sub

si necesitas abrirlo fuera de Excel tendras q crear el objeto como por
ejemplo:
Set fs = CreateObject("Scripting.FileSystemObject")


"Fernando Kohan" wrote in message
news:%

Me dice no coinciden los tipos, que sera.

Fenarro

"Fernando Arroyo" escribió en el mensaje
news:#
A mí las siguientes líneas me funcionan:

Dim varFichero As Variant
If Application.GetOpenFilename("Archivos de texto(*.txt),*.txt") Then
Workbooks.Open varFichero

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Kohan" escribió en el mensaje
news:

Fernando excelente.

El problema es el siguiente. El archivo es un TXT, modifique lo que me
dijisten a *.txt
La macro funciona perfecto pero cuando abro el archivo me dice se a
producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos

Que significa.

Gcs

fenarro