1

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

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

这是我所拥有的：

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

我不知道该放什么“？？？”

4

2 回答 2

2

也许

myWorkbook = rSelectDie.Worksheet.Parent.Name

或者

myWorkbook = rSelectDie.Parent.Parent.Name
于 2013-06-13T14:51:30.970 回答
1

ThisWorkbook.Name那是你要的吗 ？

于 2013-06-13T14:48:40.810 回答