Excel VBA (копирование данных из нескольких рабочих книг в основной файл) - PullRequest
0 голосов
/ 22 мая 2018

У меня есть Мастер, который выглядит так в одной папке.Допустим, путь к файлу для мастер-листа - C: \ Users \ John \ OneDrive \ Desktop \ Test

enter image description here

И затем каждый месяц я получаюновый ежемесячный файл в другой папке с путем к файлу C: \ Users \ John \ OneDrive \ Desktop \ Test \ American Express и именем файла будет дата (совпадает с именем столбца мастер-файла).Ежемесячный файл будет выглядеть следующим образом:

enter image description here

Теперь я пытаюсь получить итоговое значение, выделенное желтым цветом в ежемесячном файле, и автоматическивставьте его в правую колонку мастер-файла, каждый раз, когда в этой папке сохраняются новые месячные.

Буду признателен за помощь

Спасибо!

Вот мой код, ноЯ получаю сообщение об ошибке "индекс вне диапазона".Кроме того, я не знаю, как сказать VBA автоматически захватывать данные, когда новый ежемесячный файл сохраняется в папке, и вставлять его данные в основной файл под правым столбцом

Sub AmericanEx()

Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open("C:\Users\John\OneDrive\Desktop\Test\American 
Express\2018-02-28")
Set y = Workbooks.Open("C:\Users\John\OneDrive\Desktop\Test\Master file")

'Now, copy what you want from x:
x.Sheets("Monthly Sheet").Range("K26").Copy

'Now, paste to y worksheet:

y.Sheets("Master Sheet").Range("B6").PasteSpecial

'Close x:
x.Close

End Sub

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...