Из Директории все .txt в 1 лист Excel - как?

[shankove]

Пожалуйста, подскажите метод, чтобы Эксель подтянул данные из директории, где лежат (положим) txt файлики на один рабочий лист. Каждый файлик - в столбец.
aa abbb.txt в столбик А
ccccdd dd.txt в столбик В
и т.д.
Всего их 147. Не охота каждый отдельно открывать.

P.S: у меня все вопросы по одному и тому же поводу... пока ответов не слышала.

[Lumen]

Не охота каждый отдельно открывать.

А видимо придется...
Мне тут как-то приписали то, что я хочу прочитать файл не открывая его (хотя мне не это надо было), и очень доходчиво и понятно объяснили (хотя я в принципе и так это знал), что так сделать не получится.
Хотя можно открыть не этот файл, а например жесткий диск, найти в таблице размещения файлов адреса кластеров, в которых лежат твои файлы и читать по этим адресам файлы в RAW режиме. Это конечно не в тему, но я к тому вел речь, что можно прочесть файл, не открывая его

[Genyaa]

См. пример в топике "FoundFiles Object" Help'a по VBA Excel. Небольшое преобразование примера, приведенного там, позволит открыть все нужные файлы один за другим по циклу... Разместить содержимое каждого из них в новом столбце не должно составить труда.

[SSecurity]

Пожалуйста, подскажите метод, чтобы Эксель подтянул данные из директории, где лежат (положим) txt файлики на один рабочий лист. Каждый файлик - в столбец.
aa abbb.txt в столбик А
ccccdd dd.txt в столбик В
и т.д.
Всего их 147. Не охота каждый отдельно открывать.

P.S: у меня все вопросы по одному и тому же поводу... пока ответов не слышала.

P.S.: ссылка в Tools > References на Microsoft Scripting Runtime

Код: Выделить всё

Dim FSO As New FileSystemObject

Sub filemaker()
  On Error Resume Next
  Dim OneFile As File
  Path = InputBox("Please enter path", "Folder view", CurDir)
  Dim WB As Worksheet
  Set WB = ActiveSheet
  WB.Cells.Clear
  If Dir(Path) = "" Then Exit Sub
  P = 1
  For Each OneFile In FSO.GetFolder(Path).Files
    If LCase$(OneFile.Name) Like "*.txt" Then
      P = P + 1
      WB.Cells(2, P).Value = OneFile.Name
      WB.Cells(3, P).Value = Replace(OneFile.OpenAsTextStream.ReadAll, vbCrLf, vbLf)
    End If
  Next
End Sub