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

一旦你有一个范围很容易得到表范围上的名称和簿的名称片是：

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