LibreOffice Calc宏无法获取鼠标点击目标单元格地址的问题排查

问题根源 #

1. UNO接口类型缺失转换
   com.sun.star.awt.XEnhancedMouseClickHandler触发的MouseClickEvent中，Target属性实际指向单元格对象（如com.sun.star.table.XCell），但LibreOffice Basic无法自动识别该对象的实际接口。调试器会显示对象的内部属性，但运行时必须通过显式接口转换才能合法访问属性，否则会因类型不匹配导致读取失败。

2. 直接访问未暴露属性的限制
   UNO对象的属性和方法仅通过已定义的接口对外暴露，调试器能看到的内部属性属于对象实现细节，并非公开可访问的接口成员，直接读取会被运行时环境拦截。

解决方案 #

1. 显式转换Target到对应单元格接口 #

通过UnoRuntime.queryInterface将Target转换为XCell或XCellRangeAddressable接口，才能合法访问单元格地址等属性。示例代码如下：

Sub MouseClicked(oEvent As com.sun.star.awt.MouseClickEvent)
    Dim oCell As com.sun.star.table.XCell
    Dim oCellRangeAddr As com.sun.star.table.XCellRangeAddressable
    Dim oAddr As com.sun.star.table.CellAddress
    
    ' 转换Target为XCell接口
    oCell = UnoRuntime.queryInterface(com.sun.star.table.XCell, oEvent.Target)
    If Not IsNull(oCell) Then
        ' 进一步转换为XCellRangeAddressable以获取地址
        oCellRangeAddr = UnoRuntime.queryInterface(com.sun.star.table.XCellRangeAddressable, oCell)
        oAddr = oCellRangeAddr.getRangeAddress()
        
        MsgBox "单元格地址：" & Chr(64 + oAddr.Column) & (oAddr.Row + 1)
    End If
End Sub

2. 确保事件处理器注册正确 #

注册处理器时需绑定到Calc文档的容器窗口，而非其他控件，否则Target可能指向非单元格对象：

Sub RegisterMouseHandler()
    Dim oDoc As Object
    Dim oWindow As Object
    Dim oHandler As Object
    
    oDoc = ThisComponent
    oWindow = oDoc.CurrentController.Frame.ContainerWindow
    oHandler = CreateUnoListener("Mouse_", "com.sun.star.awt.XEnhancedMouseClickHandler")
    
    oWindow.addEnhancedMouseClickHandler(oHandler)
End Sub

Sub Mouse_MouseClicked(oEvent As com.sun.star.awt.MouseClickEvent)
    MouseClicked(oEvent)
End Sub

Sub UnregisterMouseHandler()
    Dim oDoc As Object
    Dim oWindow As Object
    Dim oHandler As Object
    
    oDoc = ThisComponent
    oWindow = oDoc.CurrentController.Frame.ContainerWindow
    oHandler = CreateUnoListener("Mouse_", "com.sun.star.awt.XEnhancedMouseClickHandler")
    
    oWindow.removeEnhancedMouseClickHandler(oHandler)
End Sub

3. 版本兼容性验证 #

LibreOffice 25.x属于较新版本，需确保使用的接口（如com.sun.star.table.XCell、com.sun.star.table.XCellRangeAddressable）为当前版本稳定支持的接口，避免使用已废弃的API。

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