Копирование определенных ячеек из многих книг одной папки

[faz]

Добрый вечер, Уважаемые форумчане!

Пытаюсь написать макрос позволяющий перебрать книги в указанной папке, из каждой книги скопировать ячейки с определенным адресом и вставить в итоговую таблицу. Никогда не программировал, но появился интерес разобраться. Необходим данный макрос для работы.

Записать макрос дейстивий в рекордере смог)) он позволяет делать это с заданными файлами, а мне это очень нужно для 196 файлов сделать которые в одной папке лежат.

Хочу разобраться как мне этот код записать в общем виде. то есть для всех папок) не знаю операторы какие нужны. Прошу Вас помочь!

Только подскажите, а я уже сам постараюсь всё сделать!

Смотрел на форуме темы похожие темы, но не могу разобраться в коде.

[faz]

Sub XLS()

    Dim myPath As String, myName As String, Wb As Workbook
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите рабочую папку"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        myPath = .SelectedItems(1) & Application.PathSeparator
    End With
    
    myName = Dir(myPath & "*.xls") 
    With ThisWorkbook.Sheets(1)
        Do While myName <> ""
            Set Wb = Workbooks.Open(Filename:=myPath & myName)
            ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, "A")
            Wb.Close SaveChanges:=False
            myName = Dir
        Loop
    End With
    
End Sub

Подскажите пожалуйста, что означают формулы:

- .SelectedItems.Count = 0
- .SelectedItems(1) & Application.PathSeparator
что означает значок & в данном случае?
- ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, "A")

[Hugo121]

Немного не так.
Не нужно этих активаций и селектов.
Алгоритм такой - через set задаём ссылку на сборный файл (его нужно кодом открыть или можно взять уже открытую книгу, например если код запускается из неё) и нужный лист:

    Dim wb As Workbook, sh As Worksheet
    Set wb = Workbooks.Open("C:\Users\Asus\Desktop\СБОРКА\Книга куда будут собираться данные (сводная таблица).xlsx")
    Set sh = wb.Sheets(1)

Далее в цикле перебираем файлы выбранной папки (можно в диалоге выбрать или явно в коде прописать, перебирать с помощью Dir или FSO),
примерно так (цикл не пишу, хлопотно):

With Workbooks.Open(строка_пути_полученная_в_цикле_перебора)
With .Sheets(1)
i = i + 1 'увеличиваем на число копируемых строк, ну или иначе нужно передвинуть место копирования
.[b2].Copy sh.Cells(i, 1)
End With
.Close 0 'закрываем источник без сохранения
End With

Всё - данные собрались, источники закрылись.

P.S. Пока сочинял - уже и сами подобное нашли

- .SelectedItems.Count = 0 - если ничего не выбрано, то их число естественно 0

- .SelectedItems(1) & Application.PathSeparator
что означает значок & в данном случае? - конкатенация строк, т.е. к "C:\Temp" добавляется "\"

[VictorM]

Подскажите пожалуйста, что означают формулы:

Раз уж Вы пытаетесь разобраться, очень рекомендую выполнение кода в отладочном режиме, т.е. по клавише F8
Проудитесь в этом режиме по Вашему коду, посмотрите, что пишется под курсором в желтой строке.
думаю, вопросы отпадут сами по себе.
Можно еще мультик посмотреть))

[faz]

Сообщение от VictorM

Раз уж Вы пытаетесь разобраться, очень рекомендую выполнение кода в отладочном режиме, т.е. по клавише F8
Проудитесь в этом режиме по Вашему коду, посмотрите, что пишется под курсором в желтой строке.
думаю, вопросы отпадут сами по себе.
Можно еще мультик посмотреть))

2 Hugo121: Спасибо буду пробовать) от скольких спасибо принимаются по вэб мани?)

2 VictorM: Чудо мультфильм, спасибо попробуем по вашему методу=))) Сейчас буду разбираться , так как не знаком с орфорграфией VBA (как объекты описываются и присваиваются). Спасибо, что откликаетесь, хочется конечно своими силами сделать , но оно оказывается не так просто.

[Hugo121]

от скольких - от всех