Subir archivo delimitado por : - VB-MUNDO

nancho5 · #1 (**permalink**) 23-02-2006, 13:20:27

Estoy utilizando esta funcion para subir un archivo plano a excel, pero necesito que en excel este separado en las columnas, el archivo viene delimitado por ":", como hago para decirle que cuando lo suba lo utilice el separador ":"

en la formula que uso aparece
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False

eh trratado de colocar el el other los ":", pero no me funciona, me podrian colaborar indicandome cual es la forma correcta

gracias

Sub Traer()
'

Sheets("Hoja3").Select

'diálogo para abrir archivo
strNombreArchivo = Application.GetOpenFilename
If strNombreArchivo = False Then Exit Sub
Workbooks.OpenText Filename:=strNombreArchivo, Origin:= _
xlWindows, StartRow:=39, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Columns("A:A").Select
Selection.Copy
Windows("MAESTRA_almacenes_V1.xls").Activate
ActiveSheet.Paste
Sheets("Hoja1").Select
End Sub

Alella · #2 (**permalink**) 23-02-2006, 14:58:04

Hola, que tal.

Prueba lo siguiente:

Código:

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 23/02/2006 por Administrador
'

'
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\prueba.txt", _
        Destination:=Range("A1"))
        .Name = "prueba"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = ":"
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
    Application.CommandBars("External Data").Visible = False
End Sub

Espero que te sirva.