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:

Mostrar la cita

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.