Macro para abrir archivo de texto

Cordial saludo.Amigo, estoy realiznado una macro que me permita abrir un archivo de extension txt pero al momento de ejercutar la aplicacion se presenta un error sobre la sentencia TrailingMinusNumbers:=True.  Leyendo casos sobre el error en cuestion, adicione la sentencia On error Resume Next  Applicationscreenupdating = false / true y aun persite el error.  Me encuentro trabajando en una maquina Mancintosh con Excel para mac version 2004.  el codigo es el siguiente:
Sub informe()
    Miarchivo = Application.GetOpenFilename("mis archivos planos,*.txt")
    Workbooks.OpenText Filename:=Miarchivo, Origin:= _
        xlMancintosh, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array( _
        0, 1), Array(10, 1), Array(21, 1), Array(31, 1), Array(40, 1), Array(51, 1), Array(61, 1)), trailingMinusnumber:=True  
End Sub
Espero pronta respuesta.
{"Lat":40.2016855100639,"Lng":1.416015625}

1 respuesta

Respuesta
1
Como estas amigo, lo probé de esta manera y funciona.
Pruébalo y me comentas.
Saludos bacter
Sub informe()
    Miarchivo = Application.GetOpenFilename("mis archivos planos,*.txt")
    Workbooks.OpenText Filename:=Miarchivo, Origin:= _
        xlMancintosh, StartRow:=1, DataType:=xlFixedWidth
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas