Почему я получаю сообщение об ошибке «Runtime error 9»: Subscript out of range. Ошибка с приведенным ниже кодом? - PullRequest
Новая
       39

Почему я получаю сообщение об ошибке «Runtime error 9»: Subscript out of range. Ошибка с приведенным ниже кодом?

0 голосов
/ 07 апреля 2020

Вот начало моего макроса. К счастью (?) Это происходит почти сразу. Этот макрос работал нормально, когда я был в офисе, но теперь я работаю из дома, и он перестал работать. Другая возможность состоит в том, что я должен переименовать рабочие листы сейчас, так как человек, предоставивший рабочий лист, начал давать мне рабочие листы с именами, отличающимися от того, какими они были (теперь они помечены как "HR1 Role Conflict", когда их называли " HR1 ").

Это строка / строка, вызывающая ошибку: ActiveWorkbook.Worksheets (" HR1 "). ListObjects (Worksheets (" HR1 "). ListObjects.Count) .Name =" SODRPTHR1 "

Это весь макрос до указанной выше строки:

Publi c SODDate As Variant Publi c SODFY As Variant

Sub SODSeparateEmailSave () Restart: '' SeparateEmailSave Macro 'Разделяется по кампусу, отправляет по электронной почте рабочую книгу c с указанием кампуса, затем сохраняет файл c с указанием кампуса в новый каталог'

'Restart1: Application.DisplayAlerts = False SODDate = InputBox ("Пожалуйста, введите дата отчета в следующем формате: ГГГГ.ММ.ДД ") 'MsgBox" Тестирование, если SODDate пусто "Если SODDate =" "Тогда GoTo Restart1' MsgBox" Если тест равен tr ue (пусто), тогда макрос должен перезапустить "

Restart2: Application.DisplayAlerts = False SODFY = InputBox (" Пожалуйста, введите финансовый год отчета в следующем формате: FYYYYY ") 'MsgBox" Проверка, если SODDate пусто "If SODFY =" "Тогда GoTo Restart2 'MsgBox" Если проверка верна (пусто), то макрос должен перезапуститься "

Workbooks.Open Filename:= _
    "\\uwspsrv001v.uwsa.edu\shared\ServiceCenterNew\UW Affinity Group\SOD\SOD Role Conflicts\Macro and temp directory\HRS SOD Report.xlsx"
Sheets("HR1").Select
Range("A1").Select
ActiveWorkbook.Worksheets("HR1").ListObjects(Worksheets("HR1").ListObjects.Count).Name = "SODRPTHR1"
...