Excel VBA : Get the Workbook associated with a range

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

一旦你有一个范围，就很容易获得范围所在的工作表的名称和工作表所在的工作簿的名称。:

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