Извлекать данные из листа, который меняет имя каждый месяц

Я загружаю файл каждый месяц. Я извлекаю данные из одного из своих листов и вставляю их в другой файл. Я автоматизирую весь этот процесс – единственная проблема заключается в том, что его лист меняет имя каждый месяц, но он изменяется только с 1703 до 1704 до 1705 и т. Д. Я определил это изменение следующим кодом:

Dim newDate: newDate = Format(DateAdd("M", -1, Now), "YYMM") 

и имя как листа, так и рабочей книги, которую я загружаю, будет:

  filename = "BSR" & "_" & newDate & ".xlsx" 

Как я могу поместить это в код для копирования. То есть:

  wbsecond.Sheets("filename").Range("A1:AD1105").Copy _ Destination:=wbfirst.Sheets("FX").Range("A1") 

Весь код приведен ниже:

  Sub fx() Dim filename As String Dim newDate: newDate = Format(DateAdd("M", -1, Now), "YYMM") Dim wbfirst As Workbook Dim wbsecond As Workbook Dim staticFolder As String Dim dateformat As String 'location of the parent folder staticFolder = "\C:abnsd\location\sublocation\test\" 'provides previous month YYYYMM dateformat = Format(DateAdd("M", -1, Date), "yyyymm", 1) 'workbook with the code Set wbfirst = ThisWorkbook filename = "BSR" & "_" & newDate & ".xlsx" Workbooks.Open "https://fakeurl.com/site0266/FX/Global%20FX%20Rates/" & filename ActiveWorkbook.SaveAs staticFolder & "\" & dateformat & "\" & "Source files" & "\" & "FX" & " - " & dateformat & ".xlsx" Stop 'workbook that needs to be copied over from Set wbsecond = Application.Workbooks.Open(staticFolder & "\" & dateformat & "\" & "Source files" & "\" & "FX" & " - " & dateformat & ".xlsx", _ UpdateLinks:=0) wbsecond.Sheets("filename").Range("A1:AD1105").Copy _ Destination:=wbfirst.Sheets("FX").Range("A1") wbsecond.Close savechanges:=False MsgBox "You have successfully transferred the FX File of " & dateformat End Sub 

Interesting Posts

Application.WorksheetFunction.VLookup Нет ошибки совпадения

Экспорт столбцов конкретной таблицы в Excel

Цитирование через длинный список в VBA и извлечение данных по пути вниз

Excel SUMIF, где критерии находятся в массиве

Каков наилучший способ решения проблем параллелизма при изменении файлов excel с использованием ADO.NET?

Почему эта ошибка VBA превосходит? (Повторно открыть лист)

Подключите сводную таблицу от одной книги к datamodel в другой книге

Показать текст и номер в области значений сводной таблицы

Как прокрутить флажки на динамически созданной пользовательской форме?

Доступ к Excel 2010 через Outlook 2010 C # add-In

Сравните два диапазона в excel (для сравнения не линейно)

Извлечь определенную ячейку из листов Excel

Sub Not Defined Error: вызов макроса в другом листе

Согласование 2 столбцов с двумя другими столбцами для возврата значения из другого столбца

Как написать динамический документ с использованием результатов запроса, excel и word.

Давайте будем гением компьютера.