Макрос для импорта в excel данных из текстового файла с разделителем "табуляция"

[Androgen13]

Никак не могу написать макрос, который бы импортировал все данные из текстового файла в котором разделители "табуляция", в Excel и разбивал их по столбцам. Размеры таблицы в текстовом файле динамические, т.е. количество строк и столбцов может изменяться

Может кто помочь?

[Hugo121]

Самое простое - сохранить файл как пример.xls

[Androgen13]

???

нужен макрос который все это будет делать автоматически

[motorway]

Вот пример макроса, записанного макрорекордером:

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Program Files (x86)\Bitrix Environment\www\temp6\Амурская область.csv", Destination _
        :=Range("$A$1"))
        .Name = "1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 866
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

[Hugo121]

Не быстро, но просто:

Sub tt()
Dim a, i&, tmp
a = Split(CreateObject("Scripting.FileSystemObject").Getfile("C:\пример.txt").OpenasTextStream(1).readall, vbNewLine)
For i = 0 To UBound(a)
a(i) = Replace(a(i), """", "")
tmp = Split(a(i), vbTab)
Cells(i + 1, 1).Resize(1, UBound(tmp)) = tmp
Next
End Sub

[Androgen13]

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

Не быстро, но просто:

Sub tt()
Dim a, i&, tmp
a = Split(CreateObject("Scripting.FileSystemObject").Getfile("C:\пример.txt").OpenasTextStream(1).readall, vbNewLine)
For i = 0 To UBound(a)
a(i) = Replace(a(i), """", "")
tmp = Split(a(i), vbTab)
Cells(i + 1, 1).Resize(1, UBound(tmp)) = tmp
Next
End Sub

Спасибо огромное, то что нужно

[YellRobin]

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

Не быстро, но просто:

Sub tt()
Dim a, i&, tmp
a = Split(CreateObject("Scripting.FileSystemObject").Getfile("C:\пример.txt").OpenasTextStream(1).readall, vbNewLine)
For i = 0 To UBound(a)
a(i) = Replace(a(i), """", "")
tmp = Split(a(i), vbTab)
Cells(i + 1, 1).Resize(1, UBound(tmp)) = tmp
Next
End Sub

Добрый день,
подскажите пожалуйста, почему у меня при выполнении Вашего макроса ругается на Cells(i + 1, 1).Resize(1, UBound(tmp)) = tmp

Пытаюсь подтянуть следующий .TXT

[Serge_Bliznykov]

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

подскажите пожалуйста, почему у меня при выполнении Вашего макроса ругается на Cells(i + 1, 1).Resize(1, UBound(tmp)) = tmp

Пытаюсь подтянуть следующий .TXT

не пробовали заголовок темы прочитать?

Макрос для импорта в excel данных из текстового файла с разделителем "табуляция"

у Вас в файле есть табуляция?!

Добавлено
замените строчки

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

a(i) = Replace(a(i), """", "")
tmp = Split(a(i), vbTab)

на

a(i) = Replace(a(i), """", "") & ","
tmp = Split(a(i), ",")

p.s. правда, будет глючить, если у Вас в кавычках встретятся запятые

p.p.s а почему просто не импортировать файл стандартными средствами Excel (это обычный CSV файл, разделители запятые)

[YellRobin]

Спасибо большое за ответ! Ночью делал, банальное упустил!

На работе начальник попросил сделать док в Excel, в котором будет много специальных макросов, для работы сугубо в Excel без лишних действий ( даже импорта TXT в два клика)

Сейчас стараюсь создать в VBS-е GET-запрос передачи данных одной колонки дока своего к API по протоколу HTTP , с целью импорта нужных значений после обработки сервером API в определённую колонку.

Я в программировании макросов новичок практически, извиняюсь, если неверно формулирую или поясняю. Спасибо за понимание!

[Serge_Bliznykov]

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

Спасибо большое за ответ!

Пожалуйста. Рад был помочь!

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

Ночью делал, банальное упустил!

Это не страшно, такое бывает.

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

Сейчас стараюсь создать в VBS-е GET-запрос передачи данных одной колонки дока своего к API по протоколу HTTP , с целью импорта нужных значений после обработки сервером API в определённую колонку.

Не вижу принципиальных сложностей.
Но лучше эту проблему в другой, новой теме обсуждать.

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

Я в программировании макросов новичок практически, извиняюсь, если неверно формулирую или поясняю.

Да нет, всё нормально.