Вставка из текстового файла в эксель

[piRoman]

Подскажите, есть ли стандартные функции в эксель 2003, или другие способы - вставки текста из файла TXT в таблицу эксель, таким образом, чтобы каждый тип данных вставлялся в ОТДЕЛЬНОЙ ячейке строки эксель? К сожалению -простой вставкой получается вся строка из TXT в одной ячейке, что не делает возможным дальнейшую обработку/сортировку данных по отдельным значениям ! .... Для примера, прилагаю текстовый файл из двух строк (таких в исходнике может быть больше тысячи).. С Уважением.

[IgorGO]

стандартной функции

Вставить_TXT_чтобы_каждый_тип_данных_вставлялся_в_отдельную_ячейку_строки

в Екселе нет, но можно написать, комбинируя в определенном порядке существующие

[piRoman]

если не затруднит, поподробнее или попроще объясните - как? это макрос или какойнибуть поиск с заменой? в чём главная проблема, что эксель не понимает разделителей в приложенном текстовом файле?

[IgorGO]

Sub ReadSameTxt()
  Dim fs, TxS, r As Long, s As String
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set TxS = fs.openTextFile("i:\3.txt")
  For r = 1 To 4: s = TxS.readline: Next
  r = 0
  Do
    s = TxS.readline:  s = Right(s, Len(s) - 1):  r = r + 1
    Cells(r, 1).Resize(1, 7).Value = Split(s, "|")
  Loop Until TxS.AtEndOfStream
  TxS.Close
End Sub

[Hugo121]

Есть ведь стандартный иморт данных из текста - поищите там по менюшкам... В 2003 это в данных.

[SAS888]

Можно и так:

Sub Main()
    Dim a(): Application.ScreenUpdating = False
    Workbooks.OpenText Filename:=ThisWorkbook.Path & "\ООО Юг.txt", Origin:=866, Other:=True, OtherChar:="|"
    a = ActiveSheet.UsedRange.Value: ActiveWorkbook.Close False
    Cells.Delete: [A1].Resize(UBound(a, 1), UBound(a, 2)).Value = a
End Sub

Подразумевается, что текстовый файл имеет имя "ООО Юг.txt" и находится в той же папке, что и файл Excel с этим макросом. Если нужно, замените путь и имя на требуемые.

[valerij]

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

Есть ведь стандартный иморт данных из текста.

Супер, а не один макрос почему-то не сработал.
В txt:

1 2
3 4
5 6

И все в одной ячейке.

А так рекодер записал(- стандартный импорт данных из текста) всё чётко расставляет.

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Dat.txt", Destination _
        :=Range("$A$1"))
        .Name = "Dat"
        .TextFileParseType = xlFixedWidth
        .TextFileFixedColumnWidths = Array(16)
        .Refresh BackgroundQuery:=False
End With

[IgorGO]

Валера, как бы это по-мягче...
посмотри внимательно ты хоть этими макросами винчестер не поцарапал?
если на диске винчестера где-то царапина - это все, его можно выкидывать

чтобы посмотреть не-ли царапин, надо отвинтить плату с микросхемами, снять контактные шлейфы, а винчестер расковырять отверткой, тогда станут видны пластины.

[valerij]

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

Валера, как бы это по-мягче...
посмотри внимательно ты хоть этими макросами винчестер не поцарапал?
если на диске винчестера где-то царапина - это все, его можно выкидывать

чтобы посмотреть не-ли царапин, надо отвинтить плату с микросхемами, снять контактные шлейфы, а винчестер расковырять отверткой, тогда станут видны пластины.

Как бы тоже, по-мягче...
Псаки не пиши....


Вопрос чёткий

вставки текста из файла TXT в таблицу эксель, таким образом, чтобы каждый тип данных вставлялся в ОТДЕЛЬНОЙ ячейке строки эксель?

[IgorGO]

вопрос не четкий, вопрос не полный, вопрос дилетантский.

чем значение 1 отличается по типу от 2, 3, 4, 5, 6?
это все данные одного типа назовем их числами или цифрами, если хочешь.

а согласно твоего "четкого" вопроса:

каждый тип данных вставлялся в ОТДЕЛЬНОЙ ячейке

ты именно так и пишешь

И все в одной ячейке.

ты сам определись что тебе нужно, данные одного типа в одну ячейку? или еще чего-то?
подойди критично к четко и однозначно сформулированному тобой вопросу, и догадайся сам сколько варантов ответа на него можно получить...
а по поводу:

Супер, а не один макрос почему-то не сработал

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