Проблема с возможным макросом excel vb [закрытая]

Я работаю с кучами файлов txt и нуждаюсь в макросе excel, что сделал мне следующее (если возможно).

я подробно описываю это вам: У меня есть маршрут с различными .txt с отличными именами, это пример

prueba1.txt

prueba2.txt

prueba3.txt

prueba4.txt

prueba5.txt

Я нуждаюсь в макросе, который экспортировал бы в excel имя каждого файла txt и открывал каждый файл и читал Ваши линии и поместил количество линий из-за txt немного таково, который я схватил:

НАЗНАЧЬТЕ ФАЙЛОМ TXT/////ЛИНИИ

prueba1.txt////5

prueba2.txt////4000

prueba3.txt////22541

prueba4.txt////19874

prueba5.txt////44457

Кто-то, кто помогал бы мне доставать это?

0
задан 22.04.2017, 00:55
1 ответ

Код для этого - следующий. Благодаря forero Серо Расинг из Forocoches

Sub ShowFolderList()
Dim h As Worksheet
Set h = Sheets("Hoja1")
    Dim fs, f, f1, fc, s, sFldr, folderspec
    folderspec = "C:\carpeta\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    Set fc = f.Files
    x = 1
    For Each f1 In fc
        f2 = Replace(f1, folderspec, "")
        Set theFile = fso.OpenTextFile(f1, 8, True)
        h.Cells(x, 1).Value = f2 & "\\\" & theFile.Line
        x = x + 1
    Next
End Sub
2
ответ дан 24.11.2019, 13:28

Теги

Похожие вопросы