Delphi操作OpenOffice Calc数据排序失效的问题求助

我帮你定位到了问题的核心！你的代码没有明确指定排序的维度，导致OpenOffice Calc使用了默认的按行排序行为，而不是你需要的按列排序，所以数据看起来完全没有变化。

问题原因 #

OpenOffice Calc的Sort方法默认采用按行排序（SortByRow=True），也就是将每一行作为一个整体进行排序。而你要对单列（A1:A4）的行数据按数值排序，需要明确告诉程序按列维度执行排序，也就是设置SortByRow=False。你的当前代码只配置了SortFields，缺少这个关键参数，所以排序操作根本没有按你期望的逻辑执行。

另外你担心的数据类型问题不存在——你用SetValue设置的是数值型数据，这部分是完全正确的，不会影响排序结果。

修正后的代码 #

下面是调整后的完整代码，重点修改了SortDescriptor的配置部分，添加了SortByRow参数：

program OpenOfficeCalcSortingIssue;
{$APPTYPE CONSOLE}
uses
  System.SysUtils, Variants, ComObj, ActiveX;
var
  StarOffice: OleVariant;
  SODesktop: OleVariant;
  SOCalc: OleVariant;
  CalcSheets: OleVariant;
  CalcSheet: OleVariant;
  SortFields: OleVariant;
  SortDescriptor: OleVariant;
begin
  CoInitialize(nil);
  try
    try
      StarOffice:=CreateOleObject('com.sun.star.ServiceManager');
      SODesktop:=StarOffice.CreateInstance('com.sun.star.frame.Desktop');
      SOCalc:=SODesktop.LoadComponentFromURL('private:factory/scalc', '_blank', 0, VarArrayCreate([0, -1], varVariant));
      CalcSheets:=SOCalc.GetSheets;
      CalcSheet:=CalcSheets.GetByIndex(0);
      CalcSheet.GetCellByPosition(0, 0).SetValue(2);
      CalcSheet.GetCellByPosition(0, 1).SetValue(1);
      CalcSheet.GetCellByPosition(0, 2).SetValue(4);
      CalcSheet.GetCellByPosition(0, 3).SetValue(3);
      
      // 配置排序字段
      SortFields:=VarArrayCreate([0, 0], varVariant);
      SortFields[0]:=StarOffice.Bridge_GetStruct('com.sun.star.util.SortField');
      SortFields[0].Field:=0;
      SortFields[0].SortAscending:=True;
      
      // 配置排序描述符：添加SortByRow参数（关键修正）
      SortDescriptor:=VarArrayCreate([0, 1], varVariant);
      // 设置排序字段
      SortDescriptor[0]:=StarOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
      SortDescriptor[0].Name:='SortFields';
      SortDescriptor[0].Value:=SortFields;
      // 设置按列排序
      SortDescriptor[1]:=StarOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
      SortDescriptor[1].Name:='SortByRow';
      SortDescriptor[1].Value:=False;
      
      CalcSheet.GetCellRangeByName('A1:A4').Sort(SortDescriptor);
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    CoUninitialize;
  end;
end.

验证效果 #

运行修正后的代码，你会看到A列的数值会被正确排序为1,2,3,4，完全符合你的预期。

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