Me cambia el formato de texto a general en Archivo csv

Hola Sago:

Trate de reproducir tu problema intentando con un archivo de solo 6 columnas
donde en la sexta columna aunque son numeros, los quiero como texto para que
me respete los ceros a la izquierda y me funciono bien.
Este es el codigo

Sub Carga_cvs()
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;O:\Remate\Actual\REMATE_POSTURAS_20080826.csv", _
Destination:=Range("A1"))
.Name = "REMATE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Ve si te sirve y si no dinos cuantas columnas tienes y que formato tiene
cada una para ver si te podemos generar el codigo.

Por favor, retroalimentanos y dinos si esto te fue de utilidad.

Saludos
Servando Villalon


"Sago" wrote:

Buenas tardes estuve haciendo esta pequeña macro para abrir un archivo csv,
pero al importar la columna F, no me esta respetando el formato de texto que
le pongo, me pone formato general, ya movi configuracion de la maquina
separador de listas y tampoco, espero me puedan ayudar por favor ya que
cuando hago la macro grabandola paso por paso, si me lo pone correcto, el
problema es cuando la corro por segunda vez ya no me respeta los formatos de
texto de dicha columna.


Array(6, 2)




Sub aefaefaef()
'
'
Workbooks.Open Filename:="O:\Remate\Actual\REMATE_POSTURAS_20080826.csv"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 5), Array(3, 2), Array(4, 2), Array(5,
2), Array(6, 2), _
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, 2), Array(16, 2), Array(17, 1)),
TrailingMinusNumbers:= _
True
End Sub

Muchas gracias.

hola, !

prueba cambiando la instruccion...
de: -> Workbooks.Open Filename:= ...
a: -> Workbooks.OpenText Filename:= ...

y/o comprueba que no tengas una "mezcla" de tipos de datos en la columna F

saludos,
hector.

__ OP __

... esta pequena macro para abrir un archivo csv, pero al importar la columna F
no me esta respetando el formato de texto que le pongo, me pone formato general ...
Array(6, 2)
Sub aefaefaef()
Workbooks.Open Filename:="O:\Remate\Actual\REMATE_POSTURAS_20080826.csv"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 5), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _
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, 2), Array(16, 2), Array(17, 1)), TrailingMinusNumbers:= _
True
End Sub

Buenos dias Hector miguel, ya hice los cambios que me dijiste y aun sigue
mal, ya cheque que no tenga una "mezcla" de tipos de datos en la columna F

Saludos.

"Héctor Miguel" wrote:

hola, !

prueba cambiando la instruccion...
de: -> Workbooks.Open Filename:= ...
a: -> Workbooks.OpenText Filename:= ...

y/o comprueba que no tengas una "mezcla" de tipos de datos en la columna F

saludos,
hector.

__ OP __
> ... esta pequena macro para abrir un archivo csv, pero al importar la columna F
> no me esta respetando el formato de texto que le pongo, me pone formato general ...
> Array(6, 2)
> Sub aefaefaef()
> Workbooks.Open Filename:="O:\Remate\Actual\REMATE_POSTURAS_20080826.csv"
> Columns("A:A").Select
> Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
> TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
> Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
> :=Array(Array(1, 2), Array(2, 5), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _
> 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, 2), Array(16, 2), Array(17, 1)), TrailingMinusNumbers:= _
> True
> End Sub

hola, !

... ya hice los cambios que me dijiste y aun sigue mal
ya cheque que no tenga una "mezcla" de tipos de datos en la columna F

sip... al parecer el detalle esta NO en el abrir del archivo *.CSV, sino en el metodo TextToColumns
podrias exponer el contenido de dos o tres lineas en tu archivo *.CSV ? (de preferenca, +/- exactamente)
e indicar cual es la version de excel donde se presenta la falla -?-

saludos,
hector.

__ anterior __

prueba cambiando la instruccion...
de: -> Workbooks.Open Filename:= ...
a: -> Workbooks.OpenText Filename:= ...

y/o comprueba que no tengas una "mezcla" de tipos de datos en la columna F

__ OP __

... esta pequena macro para abrir un archivo csv, pero al importar la columna F
no me esta respetando el formato de texto que le pongo, me pone formato general ...
Array(6, 2)
Sub aefaefaef()
Workbooks.Open Filename:="O:\Remate\Actual\REMATE_POSTURAS_20080826.csv"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 5), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _
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, 2), Array(16, 2), Array(17, 1)), TrailingMinusNumbers:= _
True
End Sub