如何在Excel VBA中获取范围的地址,包括工作表名称,而不是工作簿名称？

Sub GetRangeAddress()
    Dim rng As Range
    Dim ws As Worksheet
    Dim address As String

    ' 设置工作表和范围
    Set ws = ActiveSheet
    Set rng = ws.Range("A1:B10")

    ' 获取范围地址
    address = rng.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=True, ColumnAbsolute:=True)

    ' 输出范围地址和工作表名称
    MsgBox "范围地址: " & address & vbNewLine & "工作表名称: " & ws.Name
End Sub