Как удалить количество столбцов во всех файлах CSV внутри каталога

Question

У меня есть огромное количество csv внутри директории, и мне нужно только сохранить первые 6 столбцов и удалить остальные.

Есть ли способ (возможно, в командной строке) автоматизировать этот процесс? Я посмотрел онлайн, но мои ограниченные знания, возможно, не позволили мне эффективно запрашивать Google.

Спасибо, С уважением

Answer 1

Сделайте снимок - все файлы CSV в указанном месте пройдут и будут удалены все содержимое за пределами первых 6 столбцов:

Sub ParseCSVFiles()

Dim strfile As String, dirtosearch As String
Dim csvfile As Workbook

'Modify this directory location as needed
mydir = "C:\Users\Username\Desktop\TestDirectory\"

strfile = Dir(mydir & "*csv*")

Do While Len(strfile) > 0
    Set csvfile = Workbooks.Open(mydir & strfile)
    csvfile.Sheets(1).Range("G1:XFD1048576").ClearContents
    csvfile.Close True
    Set csvfile = Nothing
    strfile = Dir
Loop

End Sub

Конечно, будьте осторожны при запуске кода, подобного этому, убедитесь, что это именно то, что вы хотите сделать, потому что после выполнения кода, подобного этому, вы не сможете отменить сделанные изменения. Я бы посоветовал запустить его в тестовом каталоге, как я делал выше.