Первая часть кода для открытия расписания 02 работает отлично, но во втором раунде для расписания 03 процесс завершается ошибкой при подтверждении существования файла. Оба раздела идентичны, за исключением ссылок на ячейки.
'Открытая строка расписания 02
Dim TimeSheet02 As Workbook
If Dir(Sheets("Command Sheet").Range("H2").Value, vbDirectory) = vbNullString Then
MsgBox "The Full path of " & Sheets("Command Sheet").Range("H2").Value & " does not exist!!"
Exit Sub
End If
On Error Resume Next
Set TimeSheet02 = Workbooks(Sheets("Command Sheet").Range("H2").Value)
On Error GoTo 0
If TimeSheet02 Is Nothing Then
Set TimeSheet02 = Workbooks.Open(Filename:=Sheets("Command Sheet").Range("H2").Value, Password:=Sheets("Command Sheet").Range("I2"))
End If
' Открытая строка расписания 03
Dim TimeSheet03 As Workbook
If Dir(Sheets("Command Sheet").Range("H3").Value, vbDirectory) = vbNullString Then
MsgBox "The Full path of " & Sheets("Command Sheet").Range("H3").Value & " does not exist!!"
Exit Sub
End If
On Error Resume Next
Set TimeSheet03 = Workbooks(Sheets("Command Sheet").Range("H3").Value)
On Error GoTo 0
If TimeSheet02 Is Nothing Then
Set TimeSheet03 = Workbooks.Open(Filename:=Sheets("Command Sheet").Range("H3").Value, Password:=Sheets("Command Sheet").Range("I3"))
End If