如何通过VBA输入框获取目标工作簿、工作表及选定区域？

完整实现代码 #

直接使用Application.InputBox(Type:=8)获取用户选择的Range对象，通过对象的Parent属性逐层关联到工作表和工作簿，彻底避免名称匹配错误：

Sub GetSelectedRangeDetails()
    Dim selectedRange As Range
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim rangeAddr As String
    
    ' 弹出区域选择对话框，Type:=8强制返回Range对象
    On Error Resume Next
    Set selectedRange = Application.InputBox("请选择CSV文件中的目标区域:", "选择区域", Type:=8)
    On Error GoTo 0
    
    ' 处理用户取消操作的情况
    If selectedRange Is Nothing Then
        MsgBox "操作已取消", vbExclamation
        Exit Sub
    End If
    
    ' 从选中区域向上获取所属工作表和工作簿对象
    Set targetWS = selectedRange.Parent
    Set targetWB = targetWS.Parent
    
    ' 获取区域地址（可根据需求调整格式，这里用相对地址）
    rangeAddr = selectedRange.Address(False, False)
    
    ' 展示获取到的信息
    MsgBox "选中区域详情:" & vbCrLf & _
           "工作簿名称: " & targetWB.Name & vbCrLf & _
           "工作簿路径: " & targetWB.FullName & vbCrLf & _
           "工作表名称: " & targetWS.Name & vbCrLf & _
           "区域范围: " & rangeAddr, vbInformation
    
    ' 安全激活目标工作簿/工作表（直接用对象引用，避免同名冲突）
    targetWB.Activate
    targetWS.Activate
    selectedRange.Select
End Sub

关键改进点（解决原代码激活失败问题） #

1. 放弃字符串匹配，改用对象引用
   原代码仅获取工作表名称字符串，后续通过Worksheets("工作表名")查找时，可能因同名工作表、未指定工作簿上下文导致激活失败。通过Range.Parent直接获取工作表对象，再通过Worksheet.Parent获取工作簿对象，是最可靠的关联方式，完全避免名称歧义。

2. 使用Type:=8的InputBox
   Application.InputBox的Type:=8参数是核心：它会让用户直接在Excel界面拖拽选择区域，返回的是真实的Range对象，而非文本格式的地址字符串，从根源上保证了后续对象关联的准确性。

3. CSV文件适配
   CSV文件打开后默认只有一个工作表，且工作表名等于文件名（不含.csv后缀），但通过Parent属性获取的方式无需依赖这个默认规则，无论工作表是否重命名，都能正确关联到所属工作簿。

可选增强：限制仅选择CSV文件区域 #

如果需要确保用户选择的是CSV文件内的区域，可以在代码中添加格式校验：

' 在获取targetWB后添加以下判断
If LCase(Right(targetWB.Name, 4)) <> ".csv" Then
    MsgBox "请选择CSV文件中的区域！", vbExclamation
    Exit Sub
End If

内容的提问来源于stack exchange，提问作者ajr45