Невозможно активировать лист в книге, используя надстройку

Question

я использовал следующий код в надстройке:

Sub MacroToRunOne() 

Dim S As String 
S = "Hello World From One:" 
MsgBox S 

Workbooks("86750").Sheets("PIVOT").Activate 

End Sub 

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

Answer 1

Вы имеете в виду книгу с именем "86750" (без расширения), которой не существует.

Возможно, вы имели в виду поставить Workbooks("86750.xlsx"), что будет означать (открыть) книгу с именем файла 86750.xlsx. Обратите внимание, что если бы вы предоставили числовой аргумент, i, т. Е. Workbooks(86750), вы бы запросили книгу i по индексу всех открытых книг. Однако это не то, что вы делали.