能否在LibreOffice/OpenOffice Calc用StarBasic宏无Base实现SQL查询单元格？

完全可以实现，不需要依赖Base或ODB文件，直接通过StarBasic调用LibreOffice内置的数据库组件就能完成对Calc单元格区域的SQL查询。以下是具体实现代码和说明：

示例代码 #

Sub QueryCalcRangeWithSQL()
    Dim oDoc As Object
    Dim oDataSource As Object
    Dim oConnection As Object
    Dim oStatement As Object
    Dim oResultSet As Object
    Dim sSQL As String
    Dim oTargetSheet As Object
    Dim iRow As Integer, iCol As Integer
    
    ' 获取当前打开的Calc文档
    oDoc = ThisComponent
    
    ' 创建指向当前文档的数据源
    oDataSource = CreateUnoService("com.sun.star.sdb.DatabaseContext") _
        .createInstance("com.sun.star.sdb.DataSource")
    oDataSource.URL = "sdbc:calc:" & oDoc.getURL()
    oDataSource.setPropertyValue("User", "")
    oDataSource.setPropertyValue("Password", "")
    
    ' 建立数据库连接
    oConnection = oDataSource.getConnection("", "")
    
    ' 编写SQL查询：查询Sheet1中A1:C10区域，筛选C列值大于5的行
    ' 注意：单元格区域需用"SheetName.$A$1:$C$10"格式，表头在第一行的话要加AS子句指定列名
    sSQL = "SELECT A, B, C FROM ""Sheet1.$A$1:$C$10"" WHERE C > 5"
    
    ' 创建执行语句并执行查询
    oStatement = oConnection.createStatement()
    oResultSet = oStatement.executeQuery(sSQL)
    
    ' 指定结果输出目标：Sheet2的A1单元格开始
    oTargetSheet = oDoc.Sheets.getByName("Sheet2")
    iRow = 0
    iCol = 0
    
    ' 写入表头
    Dim oMetaData As Object
    oMetaData = oResultSet.getMetaData()
    For iCol = 1 To oMetaData.getColumnCount()
        oTargetSheet.getCellByPosition(iCol - 1, iRow).String = oMetaData.getColumnName(iCol)
    Next iCol
    iRow = iRow + 1
    
    ' 遍历结果集并写入数据
    Do While oResultSet.next()
        For iCol = 1 To oMetaData.getColumnCount()
            oTargetSheet.getCellByPosition(iCol - 1, iRow).Value = oResultSet.getDouble(iCol)
        Next iCol
        iRow = iRow + 1
    Loop
    
    ' 释放资源
    oResultSet.close()
    oStatement.close()
    oConnection.close()
End Sub

关键说明 #

• 数据源连接：通过com.sun.star.sdb.DataSource直接连接当前Calc文档，URL格式为sdbc:calc:加上文档的URL，无需ODB文件。
• SQL区域引用：单元格区域必须用"SheetName.$A$1:$C$10"的格式，工作表名和区域都要加双引号（如果名称包含空格或特殊字符更要注意）。如果区域有表头，可以在SQL中用AS指定列名，比如SELECT ""A"" AS 序号, ""B"" AS 名称 FROM ...。
• 结果处理：通过ResultSet遍历查询结果，直接写入目标工作表的单元格，支持数值、文本等不同类型的数据（根据实际情况调整getDouble为getString等方法）。

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