高分请教,在线等待. 关于DELPHI中, EXCEL 文件的格式转换问题

[BabyGoblin]

请问如何调用 EXCEL 的功能, 将一个 EXCEL 文件转换为 EXCEL 支持的文件格式, 如 TXT,或 CSV 或其它格式?
先谢了,
呵呵

[holyten]

同意上面的说法，就用excel自带的功能就可以了

• 打赏
• 举报

回复 赞

[hujinger]

直接SaveAs保存成你想要的文件名字就可以了。

• 打赏
• 举报

回复 赞

[fim]

uses ComObj;
var
FvExcel : Variant //全局变量,Excel对象

//打开
function OpenExcel(strFileName : string) : Boolean;
begin
Result := True;
try
FvExcel := CreateOleObject('Excel.Application');
except
Application.MessageBox('打开Excel失败',PChar(Application.Title),MB_ICONERROR);
Result := False;
end;

FvExcel.Visible := True;
FvExcel.Caption := '';
FvExcel.WorkBooks.Open(strFileName); //打开工作簿
FvExcel.WorkSheets[1].Activate; //设置第1个工作表为活动工作表
end;


//关闭
procedure CloseExcel;
begin
try
try
FvExcel.WorkBooks.Close;
FvExcel.Quit;
except
end;
finally
FvExcel := UnAssigned;
end;
end;

//另存为
procedure SaveAs(strFileName : string);
begin
FvExcel.SaveAs(strFileName)
end;

• 打赏
• 举报

回复 赞