我正在尝试从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我不知道用什么来表示“?”
发布于 2013-06-13 22:51:31
也许吧
myWorkbook = rSelectDie.Worksheet.Parent.Name或
myWorkbook = rSelectDie.Parent.Parent.Name发布于 2013-06-13 22:48:41
ThisWorkbook.Name是你想要的吗?
https://stackoverflow.com/questions/17090054
复制相似问题