EXCEL怎么样才能保存

[yueccc]

我用以下方法保存EXCEL文件怎么保存不了啊？
AnsiString ExcelFileName = GetCurrentDir()+"//table.xls";
Ex = Variant::CreateObject("Excel.Application");
Ex.OlePropertySet("Visible",(Variant)true);
Ex.OlePropertyGet("workbooks").OleFunction("Add");
Wb=Ex.OlePropertyGet("ActiveWorkBook") ;//创建工作薄对象
Sheet=Wb.OlePropertyGet("ActiveSheet");//建立工作表对象
Ex.OleProcedure("SaveAs",ExcelFileName.c_str());

[柯本]

另外:
改
Ex.OleProcedure("SaveAs",ExcelFileName.c_str());
为
Wb.OleProcedure("SaveAs",ExcelFileName.c_str());

[lghndyz]

Variant WordObject;
String StrCurrentPath = GetCurrentDir()+"\\"+"mb.Doc";
WordObject = CreateOleObject("Word.Basic");
WordObject.Exec(Procedure("FileNew"));
WordObject.Exec(Procedure("EndOfDocument"));
WordObject.Exec(Procedure("FileSaveAs") < <StrCurrentPath); //保存Word
WordObject.Exec(Procedure("FileOpen") < <StrCurrentPath); //打开Word
WordObject.Exec(Procedure("FileClose") < <1); //关闭Word
MessageBox(Handle,"Word文件保存成功!","信息提示",MB_OK);
前面是Word的操作，你把它改成EXCEL就可以了
http://www.ccrun.com/article.asp?i=1045&d=6375g6，
上面的网址解析的很全面，可以参考一下！！

[yueccc]

谢谢，已经解决了！！

[柯本]

AnsiString ExcelFileName = GetCurrentDir()+"//table.xls";
应该是
AnsiString ExcelFileName = GetCurrentDir()+"\\table.xls";