Excel VBA application.inputbox工作簿
我正在尝试从excel中的Excel VBA application.inputbox工作簿,vba,excel,Vba,Excel,我正在尝试从excel中的应用程序.InputBox命令获取工作簿和工作表的名称,以便在活动工作簿和使用该应用程序选择值的工作簿之间切换 我的代码可以很好地将值选择为一个范围,所以我不想更改它 以下是我所拥有的: Sub test() Dim rSelectDie As Range Dim myWorkbook As String Dim myWorksheet As String Set rSelectDie = Application.InputBox(Prompt:="Please se
应用程序.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
我不知道该为这本工作簿放什么。你想要的是这个名字吗
myWorkbook = rSelectDie.Worksheet.Parent.Name
或
就是这样。真是太棒了!我不会想到父母。谢谢
myWorkbook = rSelectDie.Parent.Parent.Name