Excel Определенная пользователем или объектная ошибка

Question

Я пытаюсь прокрутить все листы в электронной таблице и очистить содержимое ячеек A4 до конца листа.

У меня есть работа, если таблица содержит только 1 лист. Если она содержит более 1 лист, он терпит неудачу при попытке очистить содержимое на листе 2.

Строка в ошибках .Range("A4", Range("A4").SpecialCells(xlLastCell)).ClearContents

Когда она попадет эту линию, я получаю ошибку «Excel Application определенные или объектная ошибка '

Вы видите, что я делаю неправильно?

Set book = Workbooks.Open("folder-containing-excel-spreadsheets") 
    For Each Sheet In book.Sheets 
     With Sheet 
      .Range("A4", Range("A4").SpecialCells(xlLastCell)).ClearContents 
     End With 
    Next 
    book.Save 
    book.Close 

Answer 1

Попробуйте изменить

.Range("A4", Range("A4").SpecialCells(xlLastCell)).ClearContents 

в

.Range("A4", .Range("A4").SpecialCells(xlLastCell)).ClearContents 

Вы пропустили . перед тем Range("A4").SpecialCells(xlLastCell) и так, Range("A4").SpecialCells(xlLastCell) всегда пытается найти последнюю ячейку в первом листе