VB.NET中如何去除Excel InputBox返回的Range字符串中的等号？

问题原因 #

你当前使用的xlApp.InputBox未指定返回类型，当用户选择单元格区域时，Excel会返回带=的公式式引用字符串，而非纯区域地址。直接用Replace无效，是因为返回值本质是Variant类型（而非纯String），普通字符串处理方法无法正确作用。

解决方案 #

修改InputBox调用，指定Type:=8强制返回Range对象，再通过Range的Address属性获取纯区域地址字符串，同时处理用户取消选择的情况：

Private Sub OpenExcelFile()
    ' Open the Excel file
    xlWorkbook = xlApp.Workbooks.Open(selectedFile)
    xlWorksheet = xlWorkbook.Worksheets(1)
    ' Make the Excel application visible
    xlApp.Visible = True

    ' Prompt the user to select a range, specify Type:=8 to return Range object
    Dim selectedRange As Object = xlApp.InputBox("Select the range you want:", "Select Range", Type:=8)

    ' Handle user canceling the input
    If selectedRange Is Nothing Then
        MsgBox("No range selected.")
        Return
    End If

    ' Get pure range address without "="
    Dim rangeInput As String = DirectCast(selectedRange, Microsoft.Office.Interop.Excel.Range).Address(False, False)

    ' Display and assign the range address
    MsgBox("You have selected the range: " & rangeInput)
    TextBox2.Text = rangeInput
End Sub

关键说明 #

• Type:=8是Excel InputBox的特殊参数，指定后仅允许用户选择单元格区域，直接返回Range对象，从根源避免了带=的字符串问题。
• Address(False, False)用于获取不带工作表名称的相对地址；若需要绝对地址，可改为Address(True, True)。
• 添加了取消操作的判断，防止用户点击取消后代码报错。

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