Невозможно установить свойство IncludeBorder класса Style - PullRequest
0 голосов
/ 27 мая 2019

Гугл, я нашел следующий код для копирования только границ в электронной таблице Excel.Но когда я запускаю его, он получает следующую ошибку в первой строке:

"Ошибка времени выполнения" 1004 ":
Невозможно установить свойство IncludeBorder класса Style"

Я пытался поместить его где-то еще до этого саба, но все равно появляется та же ошибка.Мой лист активирован и не заблокирован.

Sub copyBorders(lRow As Long, LetCol As String)

   ActiveWorkbook.Styles("Normal").IncludeBorder = False

   Range("B4:B" & lRow & "").Copy
      With Range("" & ColLetter(lCol - 1) & "4:" & ColLetter(lCol - 1) & "" & lRow & "").Offset(20)
        .PasteSpecial -4122
        .Style = "Normal"
       End With

   ActiveWorkbook.Styles("Normal").IncludeBorder = True
End Sub

Я ожидаю нормального запуска, потому что не могу найти, что может быть ошибкой.

...