Просмотреть книгу excel и открыть, затем использовать книгу в коде

Question

Мне нужен код для поиска книги на сервере, нужно открыть книгу и мне нужно сделать ссылки на эту книгу в моем уже существующем коде.

Код ниже работает, пока я не хочу установить Wb2 как книгу, которую я открыл с помощью кода.

Sub openfile() 

Dim strFilePath As String 
Dim Wb1 As Workbook 
Dim Wb2 As Workbook 

Set Wb1 = ActiveWorkbook 

strFilePath = Application.GetOpenFilename 
If strFilePath = "False" Then Exit Sub 'Pressed cancel 
Workbooks.Open (strFilePath) 

Set Wb2 = strFilePath 
Wb2.Sheet3.Activate 
End Sub 

Answer 1

strFilePath всего лишь строка, а не рабочая тетрадь. Вы можете получить объект рабочей книги из метода .Open:

Set Wb2 = Workbooks.Open(strFilePath) 

Ваша следующая строка вызовет ошибку слишком, так как Sheet3 (я предполагаю) объект в вашей книге, но не свойство класса рабочей книги. Используйте

Wb2.Worksheets("Sheet3").Activate 'or whatever it's named 

вместо