Вставить в лист excel множество txt из папки - VBA
Формулировка задачи:
Добрый день!
Необходимо вставить в один лист excel однотипные .txt, лежащие в одной папке с .xls, в каждом .txt два столбца, разделитель " ". Каждый новый .txt должен вставляться в соседний за предыдущей вставкой столбик.
Буду очень благодарен за помощь.
Решение задачи: «Вставить в лист excel множество txt из папки»
textual
Листинг программы
- Sub Макрос1()
- Dim p, f, i
- p = ThisWorkbook.Path & Chr(92)
- f = Dir(p & "*.txt")
- i = 1
- While f <> ""
- 'далее код, полученный записью команды Данные - Получить внешние данные - Из текста, с небольшой правкой
- With ActiveSheet.QueryTables.Add(Connection:= _
- "TEXT;" & p & f, Destination:=Cells(1, i))
- .Name = "Текстовый документ"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .TextFilePromptOnRefresh = False
- .TextFilePlatform = 1252
- .TextFileStartRow = 1
- .TextFileParseType = xlDelimited
- .TextFileTextQualifier = xlTextQualifierDoubleQuote
- .TextFileConsecutiveDelimiter = True
- .TextFileTabDelimiter = False
- .TextFileSemicolonDelimiter = False
- .TextFileCommaDelimiter = False
- .TextFileSpaceDelimiter = True
- .TextFileColumnDataTypes = Array(1, 1)
- .TextFileTrailingMinusNumbers = True
- .Refresh BackgroundQuery:=False
- .Delete
- End With
- 'конец записанного кода
- f = Dir
- i = i + 2
- Wend
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
