Нужен макрос для сбора столбцов из разных файлов в одной таблице

[lemann]

Нужен макрос для сбора в одной таблице одинаково расположенных столбцов в разных CSV файлах. Макрос, решающий похожую проблему приведен здесь. Помогите, пожалуйста, написать макрос, который собирает данные из разных файлов с расширением .csv находящихся в одной папке. Необходимо, чтобы данные из столбца G9:G37 из каждого файла ("Откуда1.csv", "Откуда2.csv") копировались в открытую книгу (пример "Куда.xls"), вставляя данные столбцов друг за другом. Заголовок для столбца - имя файла. Пример во вложении.

[EducatedFool]

http://excelvba.ru/code/DATfolder2Array
http://excelvba.ru/code/DownloadCSV (см. второй прикреплённый файл)

[lemann]

Большое спасибо, за ответ. Макросы классные, но я вряд ли смогу адаптировать их под свои нужды. Нельзя ли попроще?

[nerv]

Файлы должны лежать в одной папке, код в модуле книги.

Sub io()
Dim v, j As Byte
Me.Parent.ScreenUpdating = False: j = 1
With CreateObject("Scripting.FileSystemObject")
    For Each v In .GetFolder(Me.Path & "\").Files
        If v.name Like "*.csv" Then
            With GetObject(v.Path).Sheets(1)
                j = j + 1: Me.Sheets(1).Cells(1, j).Value = v.name
                Me.Sheets(1).Cells(2, j).Resize(29).Value = .Range("G9:G37").Value
            End With
        End If
    Next
End With
End Sub

[lemann]

Спасибо. Но при запуске пишет

invalid use of me keyword

. Как исправить?

[nerv]

Попробуйте везде удалить

Me.

[nerv]

т.е.

Sub io()
Dim v, j As Byte
Parent.ScreenUpdating = False: j = 1
With CreateObject("Scripting.FileSystemObject")
    For Each v In .GetFolder(Path & "\").Files
        If v.name Like "*.csv" Then
            With GetObject(v.Path).Sheets(1)
                j = j + 1: Sheets(1).Cells(1, j).Value = v.name
                Sheets(1).Cells(2, j).Resize(29).Value = .Range("G9:G37").Value
            End With
        End If
    Next
End With
End Sub