在VFP6中,我要对excel2003中的一个工作表的A至C列数据排序,如何实现?
我在一个表单中用如下代码来实现
xlname=getfile("xls")
thisform.text1.value=xlname
objExcel = CreateObject("Excel.Application") &&创建一个EXCEL应用程序实例
  IF EMPTY(xlname)
     messagebox("文件为空")
     RETURN
  ENDIF
  objExcel.Workbooks.Open(xlname)
objexcel.visible=.t.
objexcel.worksheets("sheet1").activate
objexcel.worksheets("sheet1").range("a:c").activate
objexcel.worksheets("sheet1").range("a:c").sort(objexcel.worksheets("sheet1").range("A1"),1,,,,,,0,1,.F.,1,0,,,)
objexcel.activeworkbooks.save
objexcel.workbooks.close
objexcel.quit
RELEASE objexcel
但执行到红色标识的语句时,显示语法错.
有哪位高手帮助指点一下.不胜感谢!!


[ 本帖最后由 tyysj1221 于 2012-12-5 15:32 编辑 ]

建议导入vfp 然后进行你的排序等 这样比直接在excel中来的方便

问：为什么不直接用vfp操作？

排序要用excel中的自定义序列。不好在VFP中处理。

把自定义序列也弄到vfp中试试

谢谢各位，关键是要找到问题的关键。希望各位高手，能出手相助。

问题解决了。改成如下的语句就OK。谢谢！
objexcel.selection.sort(objexcel.range("A1"),1,,,,,,0, 1, ,1, ,,,)

收到的鲜花

• tlliqi 于 2012-12-05 17:00 送鲜花  5朵   附言：加分鼓励

不错，向你致敬！！