Принимая данные из других книг, которые различаются по имени - просят пользователя выбрать их

Question

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

Пожалуйста, помогите! Спасибо,

Option Explicit

Sub Sample() 
    Dim wb1 As Workbook, wb2 As Workbook 
    Dim Ret1, Ret2 

    Set wb1 = ActiveWorkbook 

    '~~> Get the first File 
    Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _ 
    , "Please select first file") 
    If Ret1 = False Then Exit Sub 

    '~~> Get the 2nd File 
    Ret2 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _ 
    , "Please select Second file") 
    If Ret2 = False Then Exit Sub 

    Set wb2 = Workbooks.Open(Ret1) 
    wb2.Sheets(1).Cells.Copy wb1.Sheets(1).Cells 
    wb2.Close SaveChanges:=False 

    Set wb2 = Workbooks.Open(Ret2) 
    wb2.Sheets(1).Cells.Copy wb1.Sheets(2).Cells 
    wb2.Close SaveChanges:=False 

    Set wb2 = Nothing 
    Set wb1 = Nothing 
End Sub 

Answer 1

решаемая.

Для всех, кто нуждается в решении, я отработал его, установив папку по умолчанию для каталога перед открытием каждого диалогового окна.

ChDir "C: \ мест \ мы \ скрыть \ вещи"

Вслед за открытием кода диалогового окна. работал шарм, комментируйте, если вам нужно лучшее объяснение.