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
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


0