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.
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 de bacter582
1