Как активировать книгу, открытую с использованием имени книги в VBA

Question

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

Код:

FileName = input_path_1 & input_file_1 
Workbooks(FileName.xls).Activate 

Когда я пытаюсь сделать это, он дает мне «Подстрочный из диапазона» ошибка. Как это решить?

Answer 1

Проверьте, имеет ли ваша переменная Filename правильное имя файла. (например, Sample.xls)
Также проверьте правильность значений в input_path_1 и input_file_1.
Если у них это должно быть так:

Workbooks(Filename).Activate 

Теперь, если вам нужно добавить имя расширения (например, Filename значение только Пример):

Workbooks(Filename & ".xls").Activate 

Аргумент должен всегда быть в виде строки и быть полным именем файла (с расширением). Хотя цифры (индекс) также принимаются, вы не можете быть уверены, какой индекс относится к какой книге. Еще лучше назначьте его переменной.

Dim otherWB As Workbook 
Set otherWB = Workbooks(Filename) 
'Set otherWB = Workbooks(Filename & ".xls") '~~> for second scenario above 

Edit1: Из комментариев, если Filename содержит FULLPATH, то это может работать.

Dim Filename1 As String 
Filename1 = Split(Filename, "\")(UBound(Split(Filename, "\"))) 
Workbooks(Filename1).Activate