заезженное старое, но оч надо

[sha69]

ДОбрый вечер, я нашла много топов для переноса таблицы из формата txt в файл excel, но получается все в одном столбце а если брать

Sub openTxtFile()
Const sTxtFile = "C:\TextFileName.txt"
Workbooks.OpenText Filename:=sTxtFile, DataType:=xlDelimited, Comma:=True
End Sub

то получается вроде и не в одном столбце, но все равно все съезжает в разные стороны, можно ли как нибудь сделать так, чтоб именно столбец в столбец шла таблица? ( столбец А:номер счета по кредиту, столбец В:количество (шт)) и т.д.)
Возможно такое сотворить?((((

[EducatedFool]

http://excelvba.ru/code/CSV2Excel

Попробуйте, вдруг поможет.

[doober]

Вам надо примерно так извлекать таблицу
ssl-это считанная строка

 Sub Get_Row()
ssl = "|20202810513000100161     |        62|   Российский рубль|              |   12775019.80|"
s1 = Mid(ssl, 2, 25)
s2 = Mid(ssl, 28, 10)
s3 = Mid(ssl, 39, 19)
s4 = Mid(ssl, 59, 14)
s5 = Mid(ssl, 74, 12)
End Sub

[Hugo121]

Ещё - обвесить это Trim()'ом, чтоб убрать лишние пробелы, извлекать только нужные строки, анализируя на IsNumeric() и непусто пару/тройку символов после "|" (если такой символ первый), при выгрузке сперва задать первому столбцу листа текстовый формат, а последнему 0.00 (чтоб нули не пропали).
Ещё возможно нужно определить системный десятичный разделитель и заменить на него точку в суммах до выгрузки на лист.
Примеры такие были, я точно похожее делал.

[nerv]

Данные, текст по столбцам, разделитель "|". Найти "три пробела", Заменить "Пусто".

[R Dmitry]

Сообщение от sha69

ДОбрый вечер, я нашла много топов для переноса таблицы из формата txt в файл excel, но получается все в одном столбце а если брать

Sub openTxtFile()
Const sTxtFile = "C:\TextFileName.txt"
Workbooks.OpenText Filename:=sTxtFile, DataType:=xlDelimited, Comma:=True
End Sub

то получается вроде и не в одном столбце, но все равно все съезжает в разные стороны, можно ли как нибудь сделать так, чтоб именно столбец в столбец шла таблица? ( столбец А:номер счета по кредиту, столбец В:количество (шт)) и т.д.)
Возможно такое сотворить?((((

легкий путь

Sub sha69()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\0161.txt", Destination:=[a1])
        .Name = "0161"
        .PreserveFormatting = True
        .AdjustColumnWidth = True
        .TextFilePlatform = 1251
        .TextFileStartRow = 16
        .TextFileParseType = xlFixedWidth
        .TextFileColumnDataTypes = Array(9, 2, 9, 1, 9, 1, 9, 1, 9, 1, 9)
        .TextFileFixedColumnWidths = Array(1, 20, 6, 10, 1, 19, 1, 14, 1, 14)
        .TextFileDecimalSeparator = "."
        .Refresh BackgroundQuery:=False
        .Delete
    End With
End Sub

второй способ более сложный:
создаем Schema.ini можно программно , можно и руками, и запросом получаем нужные данные очищенные от постороннего мусора
запрос такого рода:

SELECT Imp.F2, Imp.F4, Imp.F6, Imp.F8, Imp.F10
FROM (SELECT * FROM 0161#txt IN 'D:\' 'text;') as Imp
WHERE [Imp].F10=True

Schema.ini

[0161.txt]
ColNameHeader=False
Format=FixedLength
CharacterSet=ANSI
DecimalSymbol=.
Col1=F1 Text Width 1 
Col2=F2 Text Width 20 
Col3=F3 Text Width 6 
Col4=F4 Text Width 10 
Col5=F5 Text Width 1 
Col6=F6 Text Width 19 
Col7=F7 Text Width 1 
Col8=F8 Text Width 14 
Col9=F9 Text Width 1 
Col10=F10 Double Width 14 
Col11=F11 Text Width 44

[Hugo121]

sha69, какой нужен в итоге результат - нужны ли все строки, или только с счетами/суммами, нужна ли шапка, дата справки?

[sha69]

нужна шапка, нужно все с файла txt, чтобы в экселе была именно такая таблица, потом еще в итоге нескольких таких таблиц нужно будет получить сумму отдельно по валюте РФ, валюте доллар сша и евро..
R Dmitry: спасибо большое, сейчас попробую)

[sha69]

получилось столбец в столбец,правда без шапки ноя о ней не говорила в самом начале, спасибо огромное R_Dmitry
а можно сделать так, как я написала в предыдущем посте?

[sha69]

это нельзя сделать?(((((