Ошибка времени выполнения '1004': выбор метода класса диапазона не удался с помощью ThisWorkbook

Question

Во время запуска сценария, если вручную удалить фокус из рабочей книги, содержащей макрос, я получаю указанную ошибку. Если я не нажму на что-нибудь, это будет работать без проблем. Ошибки скрипта возникают только тогда, когда я пытаюсь вернуть выбор на A1 с листа «Вход». Точка Перерыв на следующей строке:

ThisWorkbook.Sheets("Input").Range("A1").Select 

Если я отлаживать и место фокус назад на макро рабочем листе скрипт завершает без проблем. Предыдущая строка:

ThisWorkbook.Sheets("Input").Cells.Delete 

работает без ошибок, так что я угадал его диапазон, который выпадает из сферы, но не совсем понимаю, почему, как это должно быть определено в предыдущих области видимости нотации. Может кто-нибудь объяснить, почему эта линия выходит из сферы действия? Должно ли ThisWorkbook достаточно четко определить Рабочую книгу, на которую ссылается мой код? Любые рекомендации приветствуются.

Answer 1

Это не имеет никакого отношения к ссылке на ThisWorkbook. Вы просто не можете выбрать диапазон в объекте, который неактивен. Рассмотрим этот код, который демонстрирует ту же ошибку:

Private Sub OneOhOhFour() 

    'Executing with Book1.xlsm active and Book2.xlsx open. 
    Dim wb As Workbook 
    Set wb = Application.Workbooks("Book2.xlsx") 
    Debug.Print ThisWorkbook.Name 
    'Outputs 'Book1.xlsm' to Immediate window. 
    wb.Sheets("Sheet1").Range("A1").Select 'Error 1004 

End Sub 

То же самое и с Таблицах:

Private Sub OneOhOhFourVTwo() 
    'Starting on anywhere but Sheet2 gives an error. 
    Dim ws As Worksheet 
    Set ws = ThisWorkbook.Worksheets("Sheet2") 
    ws.Range("A1").Select 'Error 1004. 
End Sub 

Самое простое решение для активации объекта, прежде чем выбрать в нем:

Private Sub NoOneOhOhFour() 

    Dim wb As Workbook 
    Set wb = Application.Workbooks("Book2.xlsx") 
    wb.Activate 
    wb.Sheets("Sheet1").Range("A1").Select 'No error. 

End Sub 

Еще лучше использовать ссылки и стараться полностью не использовать объекты Selection и Active *.