这句在VFP中如何实现？以下是我的尝试，但是最后一句出错

*!*    *********************************************************
eole=Createobject('Excel.application')
If Type("eole")#"O"
    Wait Clear
    Messagebox( "访问Excel失败！请检查你的系统是否正确安装 Excel 软件！",48,"系统")
    Return To Master
Endif
eole.Visible=.F.
*eole.Workbooks.Add
eole.Workbooks.Open("C:\Users\Administrator\Desktop\duo\四高一低20211107.xls")
eole.ActiveWindow.WindowState = 2 &&最大化
eole.Worksheets('sheet1').Activate
eole.displayalerts=.F.
*eole.SheetsInNewWorkbook=1 &&设定新工作簿中有几个工作表
eole.ActiveWindow.WindowState = 2 &&最大化


eole.Range("B2:N8").Select  
eole.selection.sort("四高一低",1)     

出现的错误是

[此贴子已经被作者于2021-11-7 08:34编辑过]

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("N3:N8"), SortOn:=0, Order:=2, DataOption:=0

上面一句在VBA中运行正常
下面这句在VFP中运行出现语法错误

eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("N3:N8"), SortOn:=0, Order:=2, DataOption:=0
下面这句显示“不能识别的命令谓词”
eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add (Key:=Range("N3:N8"), SortOn:=0, Order:=2, DataOption:=0)
真不知道如何调用这些带参数的命令

试试
eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(eole.Range("N3:N8"), 0, 2, 0)

语法验证通过，却没起作用，我再琢磨

eole.Range("B2:N8").Select
eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add (eole.range("N3:N8"),0, 1, 0)
    With eole.ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange (eole.Range("B2:N8"))
        .Header = 1
        .MatchCase = 0
        .Orientation = 1
        .SortMethod = 1
        &&.Apply
    EndWith 

这是录的宏改编的

现在已经找到了没起作用的原因，最后一句 .Apply 被注释了

[此贴子已经被作者于2021-11-7 10:54编辑过]

我只是用vfp编点程序，计算一些数据，从来也没有往其他方面考虑过。

用提供数据试了一下，顺序：
rng = eole.Range("A3:N8")
rng.sort(eole.Range("N3:N8"),1)  

[此贴子已经被作者于2021-11-7 10:23编辑过]

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
eole=Createobject('Excel.application')
eole.displayalerts=.F.
eole.Workbooks.Open(cDefPath+"四高一低20211107.xls")
eole.Worksheets('sheet1').Activate
rng = eole.Range("A3:N8")
key = eole.Range("N3:N8")
rng.sort(key,1)  
eole.ActiveWindow.WindowState = 2 &&最大化
eole.Visible=1

eole.Range("B2:N8").Select
eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add (eole.range("N3:N8"),0, 2, 0)
*eole.ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add (Key:=Range("N3:N8"), SortOn:=0, Order:=2, DataOption:=0) &&(range("B2:N8"),0, 2, 0)
    With eole.ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange (eole.Range("B2:N8"))
        .Header = 1
        .MatchCase = 0
        .Orientation = 1
        .SortMethod = 1
        .Apply
    EndWith 

刚才没起作用是因为 .Apply 因出错被注释了

佩服，精确，简洁，谢谢

[此贴子已经被作者于2021-11-7 11:28编辑过]

谦虚了