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

一旦你有一个范围，很容易得到 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：获取与范围关联的工作簿

1 个答案: