将Excel文件数据另存为Txt文件

Question

不用控件，将将Excel文件数据另存为Txt文件，在线等，解决后立马结贴！

Answer 1

1、直接通过OLE接口调用SaveAs方法
ExcelApp.ActiveSheet.SaveAs(FileName, xlCSV);
2、如果格式较复杂则“另存”的文本文件可能会比较乱
那就通过OLE接口循环读取单元格再输出到文本文件吧

Answer 2

EXCEL提供OLE编程接口，可以调ExcelApp.ActiveSheet.SaveAs(FileName, xlCSV)，一个一个单元格读，如果格式复杂，有可能读出来乱码，最好是EXCEL文件是固定格式的。

Answer 3

    excelApp:=CreateOleObject('Excel.Application');
    wrkBook:=excelApp.WorkBooks.Add;
    for k:=0 to sCont.Count-1 do
    begin
        text:=sCont.Strings[k];
        excelApp.workSheets[1].cells[n,1].value:=text;
        Inc(n);
    end;
    excelApp.ActiveWorkBook.SaveAs(edit1.Text);
    wrkBook.close;
    excelApp.quit;
    sCont.Free;

Answer 4

能具体一点吗？Excel的格式倒是不复杂 谢谢了