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

BabyGoblin 2004-04-30 11:11:11
请问如何调用 EXCEL 的功能, 将一个 EXCEL 文件转换为 EXCEL 支持的文件格式, 如 TXT,或 CSV 或其它格式?
先谢了,
呵呵
...全文
26 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
fim 2004-04-30
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;
  • 打赏
  • 举报
回复
hujinger 2004-04-30
直接SaveAs保存成你想要的文件名字就可以了。
  • 打赏
  • 举报
回复
holyten 2004-04-30
同意上面的说法,就用excel自带的功能就可以了
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4967

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-04-30 11:11
社区公告
暂无公告