Выберите несколько ячеек из нескольких листов из нескольких файлов в Excel

Question

У меня есть несколько файлов Excel в папке AA со следующими общими характеристиками: - На листе 1 ячейка N10 имеет определенную дату - На листе 2 диапазон D10:F49 содержит данные, но последние, нижние ячейки в этом диапазоне могут быть пустыми

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

Например,

У меня есть это:

И мне нужно это:

На изображениях вы можете увидеть пример с данными из 1 файла, но мне нужно его для нескольких... Мне нужен этот лист для обновления, когда я сохраняю новые файлы в папке AA. Можно ли это сделать?

Answer 1

Просто установите диапазоны и рабочие тетради.

Dim wkbk1 As Workbook
Dim wkbk2 As Workbook

' be sure to add the path if the workbook isn't in your working directory
Set wkbk1 = workbooks("Workbook1.xlsx")
Set wkbk2 = workbooks("Workbook2.xlsx")  

Dim range1 As Range
Dim Range2 As Range

Set Range1 = wkbk1.Range("A1:B234") 'or whatever
Set Range2 = wkbk2.Range("A1:B234")  ' you should get the picture by now...

Нужен массив данных? попробуй это.. супер просто.

Dim data As variant
data = Range1

Хорошо, теперь, когда вы объявили свои данные, обратитесь к этому посту за циклом в каталоге, полном электронных таблиц... Циклически просматривайте файлы в папке, используя VBA?

Теперь у вас должны быть инструменты, чтобы начать работу. Добавьте комментарий, если вам нужна дополнительная помощь.