Загрузка данных из закрытого .xls файла - VBA (50548)

Формулировка задачи:

Доброго времени суток. Необходимо создать код для выбора закрытого файла формата .xls путем вывода окошка "Открытие документа" и загрузки данных из выбранного .xls файла с первого листа ячеек A1:C12 во второй лист активной книги в ячейки A1:C12 соответственно. Заранее спасибо!

Решение задачи: «Загрузка данных из закрытого .xls файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Task()
 
Dim wb   As Workbook
Dim Sh   As Worksheet
Dim sw   As Workbook
Dim ss   As Worksheet
 
    Set sw = ThisWorkbook
    Set ss = sw.Sheets(1)
 
    fname$ = Application.GetOpenFilename("Файлы MsExcel (*.xls),*.xls", , "Выбор файла")
 
    If UCase$(fname$) <> "FALSE" And UCase$(fname$) <> "ЛОЖЬ" Then
    
       Set wb = Workbooks.Open(fname$)
       Set Sh = wb.Sheets(1)
       
       wb.Activate
       Sh.Select
       Sh.Range("A1:C12").Select
       Selection.Copy
       sw.Activate
       ss.Select
       Range("a1").Select
       ActiveSheet.Paste
       
       wb.Close
       
       MsgBox "OK!"
       
    End If
 
End Sub