Как склеить 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д