Excel VBA应用程序.inputbox工作簿

Question

我试图从excel中的Application.InputBox命令获得工作簿和工作表的名称，以便我可以在活动工作簿和工作簿之间切换，我已经从使用应用程序中选择了值。

我的代码可以很好地选择值作为一个范围，所以我不想改变它。

我有:

Sub test()
Dim rSelectDie As Range
Dim myWorkbook As String
Dim myWorksheet As String
Set rSelectDie = Application.InputBox(Prompt:="Please select the Die Values", Type:=8)
myWorkbook = ???
myWorksheet = rSelectDie.Worksheet.Name
MsgBox "Your Worksheet is: " & myWorksheet & vbNewLine & "Your WorkBook is" & myWorkbook

Windows(myWorkbook).Activate
Sheets(myWorksheet).Activate
End Sub

我不知道该怎么写"??"

Answer 1

也许

myWorkbook = rSelectDie.Worksheet.Parent.Name

或

myWorkbook = rSelectDie.Parent.Parent.Name

Answer 2

ThisWorkbook.Name是你想要的吗?