Excel - TrailingMinusNumbers:=True

   
Vista:

TrailingMinusNumbers:=True

Publicado por juan chevere (1 intervención) el 25/04/2009 05:29:38
Amigos:

tengo un problema, al querer abrir un archivo txt , copiar, pegar y alinear en una hoja excel
me manda el siguiente error: "no se encontro el argumento con nombre" , sin embargo el codigo trabaja bien en excel 2003 , pero en excel 1997-2000 tengo el problema.
el error se enmarca en esta parte del codigo ' TrailingMinusNumbers:=True '

el codigo es el siguiente:

Sub Macro1()
Sheets("hoja1").Select
Workbooks.OpenText Filename:=("F:REP-POST-ASG.txt"), Origin:=932, StartRow _
:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1)), TrailingMinusNumbers _
:=True
Columns("A:AA").Select
Selection.Copy
Windows("libro1.xls").Activate
Sheets("hoja1").Select
Columns("A:A").Select
ActiveSheet.Paste
Rows("1:5").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("hoja2").Select
Range("C4").Select
End Sub

Atte.

Juan Chevere
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:TrailingMinusNumbers:=True

Publicado por Abraham Valencia (2418 intervenciones) el 27/04/2009 18:46:10
Ese parametro solo es valido a partir de la version 2002 (XP) de Excel :)

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar