Excel VBA: 获取与范围关联的工作簿

Question

此宏需要从用户selected 工作簿上的各种工作表开始selecting 数据。换句话说，我事先不知道工作簿的名称。我要求用户 select 另一个已经打开的文件中的一个单元格，这样我就可以开始从那本书中获取数据。

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 就很容易得到 Sheet 的名称工作簿的名称 sheet 已打开。:

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

Excel VBA: 获取与范围关联的工作簿

Excel VBA: Get the Workbook associated with a range

excel

vba

copy

range