Я пишу код VBA, который должен копировать определенный диапазон из одной рабочей книги в другую (открытую).Я хочу выбрать эту книгу из всплывающего окна, в котором отображаются все открытые книги Excel.
Ниже показано, с чего начинается копирование нужного диапазона, не нужно указывать рабочую книгу (изменениекаждый год) или рабочий лист (меняется каждый месяц) больше, чем это.Из Application.Dialogs(xlDialogActivate).Show я получаю список активных рабочих книг / приложений (спасибо @jkpieterse), и теперь я хочу установить его как WB2, чтобы я мог скопировать его в выбранный диапазон.
Sub GTS_Timesheet()
Dim WB As Workbook, WS As Worksheet, RG As Range, WB2 As Workbook
Set WB = ActiveWorkbook
Set WS = WB.ActiveSheet
Set RG = WS.Range("F10", Range("U" & Cells(Rows.Count, "F").End(xlUp).Row))
''Set WB2 =
RG.Copy
WB2 = Application.Dialogs(xlDialogActivate).Show
WB2.Worksheets("Paste FRW Data").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub
Спасибои, пожалуйста, скажите, если мне нужно больше объяснить, что я хочу.