Excel VBA: получить книгу, связанную с диапазоном

Question

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

Set bookRange = Application.InputBox(prompt:="Select a cell in the sheet from which you wish to import data", Type:=8) 
bookName = bookRange.GET_WORKBOOK_NAME_SOMEHOW 

Есть что-то вроде GET_WORKBOOK_NAME_SOMEHOW?

Answer 1

После того, как у вас есть Range легко получить имя листа диапазон от и имя Workbook лист на .:

Sub dural() 
    Dim r As Range 
    Set r = Application.InputBox(Prompt:="Pick a range", Type:=8) 
    MsgBox r.Address & vbCrLf & r.Parent.Name & vbCrLf & r.Parent.Parent.Name 
End Sub