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

BabyGoblin 2004-04-30 11:11:11
请问如何调用 EXCEL 的功能, 将一个 EXCEL 文件转换为 EXCEL 支持的文件格式, 如 TXT,或 CSV 或其它格式?
先谢了,
呵呵
...全文
66 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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自带的功能就可以了

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧