请教EXCEL的SAVEAS问题

[kmyangyl]

我的程序如下:
Variant MSExcel=CreateOleObject("Excel.Application");
MSExcel.OlePropertySet("Visible",false);
MSExcel.OlePropertyGet("WorkBooks").OleProcedure("Open",OpenDialog1->FileName);
MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("SaveAs","c:\\test.txt",3);
MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("Close");
MSExcel.OleProcedure("Quit");
MSExcel= Unassigned;
在下面这条中,如果没有第三个参数,或第三个参数为1,一切正常.但如果第三个参数改为3,因为我想存为文本.它就会跳出对话框,说test.txt发生了改变,是否存盘.请问如何解决?
MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("SaveAs","c:\\test.txt",3);

[tianshu888]

MSExcel.OlePropertyGet("ActiveWorkBook").OleProcedure("SaveAs","c:\\test.txt"）；
这样就可以直接保存成文本。不用加第三个参数

[kmyangyl]

不行

[kmyangyl]

如何转为文本

[ccrun.com]

OLE专业户来也！！！

Variant vExcelApp = CreateOleObject("Excel.Application");
vExcelApp.OlePropertySet("Visible", false); // 隐藏App
vExcelApp.OlePropertySet("DisplayAlerts", false); // 不弹出警告对话框
vExcelApp.OlePropertyGet("WorkBooks").OleProcedure("Open", "C:\\ccrun\\book1.xls");
vExcelApp.OlePropertyGet("ActiveWorkBook").OleProcedure("SaveAs", "c:\\test.txt", -4158); // 另存为Tab键分隔的文本文件
vExcelApp.OlePropertyGet("ActiveWorkBook").OleProcedure("Close");
vExcelApp.OleProcedure("Quit");
vExcelApp = Unassigned;