Excel VBA application.inputbox工作簿

我想从Excel中的Application.InputBox命令中获取工作簿和工作表的名称，以便可以在Active Workbook和工作簿之间切换，以便从使用该应用程序中select值。

我有代码，很好地select作为范围的值，所以我不想改变这一点。

这是我有什么：

 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是你想要的？