subscript out of range excel (не массив)

[СергейАстана]

Здравствуйте, форумчане! Читал здесь на форуме тему "subscript out of range excel" по массивам, но не мой случай (не массив). Ошибка "вне диапазона" появляется в таком коде. Причем файл "СпрКзг2013" открывает, в следующей строке при отладке вижу название и файла и страницы, но сам Set wsSprDrg = Nothing. Подскажите мне плиз, где ошибка? или глаз замылился. Запутался в 3 соснах...

Sub Ree()
' скачивание и первичная обработка реестров
    Dim wsSprDrg As Worksheet
    Dim wsRee As Worksheet
    
    Dim sPath As String
    Dim sFileName As String
    Dim sFileList As String
    
    ' обращение к файлу реестру-источнику
    sPath = ThisWorkbook.Path & "\"
    sFileName = "СпрКзг2013"
    sFileList = "КЗГ"
    Workbooks.Open (sPath & sFileName)
    Set wsSprDrg = Workbooks(sFileName).Worksheets(sFileList)
    
    Set wsRee = ThisWorkbook.Worksheets(2)
    wsRee.Activate
    
    wsRee.Cells(1.1) = wsSprDrg.Cells(1.1)
    wsRee.Cells(2.1) = wsSprDrg.Cells(2.1)
    wsRee.Cells(3.1) = wsSprDrg.Cells(3.1)
End Sub

[Казанский]

Сообщение от СергейАстана

    sFileName = "СпрКзг2013"

Имя файла точно без расширения?

Сообщение от СергейАстана

    wsRee.Cells(1.1) = wsSprDrg.Cells(1.1)
    wsRee.Cells(2.1) = wsSprDrg.Cells(2.1)
    wsRee.Cells(3.1) = wsSprDrg.Cells(3.1)

Должно быть

    wsRee.Cells(1, 1) = wsSprDrg.Cells(1, 1)

[СергейАстана]

если писать расширение .xls, то выдает другую ошибку: http://joxi.ru/eAOD3EZIYQRlro
Application-defined or object-defined error

[СергейАстана]

Сообщение от Казанский

Имя файла точно без расширения?

Должно быть

    wsRee.Cells(1, 1) = wsSprDrg.Cells(1, 1)

Да, верно, не заметил, но до этого места программа не доходит

[Hugo121]

Давайте пример этих двух файлов.

[СергейАстана]

когда грузил файлы, обратил внимание, что расширение не xls, а xlsx.
Вы оказались правы с расширением. Спасибо за участие! Точно глаз замылился. Еще раз спасибо! Такая банальность! Извините, что отвлекал вас!