Как склеить 30 csv в один - VBA

Узнай цену своей работы

Формулировка задачи:

Всем привет как склеить 30 csv файлов в один? При условии что в каждом файле есть шапка занимает 1 строчку и начиная со 2 файла эту 1 строчку нужно удалять!

Решение задачи: «Как склеить 30 csv в один»

textual
Листинг программы
Sub Склеить_CSV_файлы_из_CurDir()
    ' Макрос последовательно вставляет в новый файл
    ' данные из всех CSV файлов текущей директории, со 2-го - без шапки.
    Dim i&, j&
    Dim TextLine$, MyPath$, MyFileName1$, MyFileName2$
    'MyPath = CurDir & ""
    MyPath = ActiveWorkbook.Path & ""
    MyFileName2 = "Склейка.csv"
    Open MyFileName2 For Output Lock Write As #2
    MyFileName1 = Dir(MyPath & "*.csv")
    i = 0
    Do Until MyFileName1 = ""
        Open MyPath & MyFileName1 For Input Lock Read As #1
        i = i + 1
        j = 0
        Do While Not EOF(1)
            Line Input #1, TextLine
            j = j + 1
            If i = 1 Or j > 1 Then Print #2, TextLine
        Loop
        Close #1
        MyFileName1 = Dir
    Loop
    Close #2
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы