帮忙吧！大哥

[fx_guo]

小弟：最近在用BCB5.0作控制Excel的程序。
我在写的时候碰见了一个这样的问题，应该写什么样的代码来控制EXCEL的排序呢？
看看下面我的代码有问题吗？
我用上了EXCELApplication、ExcelWorkbook、ExcelWorksheet控件。
RangePtr Range;
ExcelApp->Connect();
ExcelApp->Set_Visible(0,true);
ExcelApp->Workbooks->Open(WideString("d:\\Data Source.xls"));
Range= ExcelWorksheet->Get_Range(TVariantInParam("A1"),TVariantInParam("F17"));
ExcelWorksheet->ConnectTo(ExcelApp->Workbooks->get_Item(1)->Worksheets->get_Item(1));
Range->Sort(TVariantInParam("A1"),XlSortOrder(xlAscending),TVariantInParam("B1"),
TVariantInParam(xlSortValues),XlSortOrder(xlAscending),TVariantInParam(""),
XlSortOrder(),XlYesNoGuess(xlGuess),TVariantInParam(1),TVariantInParam(true),
XlSortOrientation(xlTopToBottom),XlSortMethod(xlSyllabary));
请大家一定要帮忙。。

[fx_guo]

上述代码一行返了，现在改一下
RangePtr Range;
ExcelApp->Connect();
ExcelApp->Set_Visible(0,true);
ExcelApp->Workbooks->Open(WideString("d:\\Data Source.xls"));
ExcelWorksheet->ConnectTo(ExcelApp->Workbooks->get_Item(1)->Worksheets->get_Item(1));
Range= ExcelWorksheet->Get_Range(TVariantInParam("A1"),TVariantInParam("F17"));
Range->Sort(TVariantInParam("A1"),XlSortOrder(xlAscending),TVariantInParam("B1"),
TVariantInParam(xlSortValues),XlSortOrder(xlAscending),TVariantInParam(""),
XlSortOrder(),XlYesNoGuess(xlGuess),TVariantInParam(1),TVariantInParam(true),
XlSortOrientation(xlTopToBottom),XlSortMethod(xlSyllabary));

[huzhangyou]

没有具体做过
今天实验室的机器连不上
呵呵
做个记号
应该不难的
欢迎光临我得网站
www.libing.net.cn