Delphi7实现excel文件和txt文件的相互转换 小弟最近刚刚接触Delphi,希望各位大神慷慨相助啊~~求救内容: excel文件和txt文件的相互转换,不用打开文件,转换后存在同目录下的同名文件中~跪谢啊~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 xls和xlsx的要打开才能转吧csv格式的直接改文件名后缀就行了。 Delphi7,Office2007测试通过unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, BaseGrid, AdvGrid;type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}uses Comobj, Clipbrd;procedure TForm1.Button1Click(Sender: TObject);var FExcel: Variant; FWorkbook: Variant; FWorksheet: Variant; slText: TStringList;begin if not OpenDialog1.Execute then exit; Screen.Cursor := crHourGlass; try FExcel := CreateOleObject('excel.application'); except Screen.cursor := crDefault; MessageDlg('Could not start Microsoft Excel!', mtError, [mbCancel], 0); Exit; end; try FWorkBook := FExcel.WorkBooks.Open(OpenDialog1.Filename); //FWorkSheet := FWorkBook.WorkSheets.Add; FWorkSheet := FWorkBook.WorkSheets[1]; FWorkSheet.UsedRange.Copy; slText := TStringList.Create; try slText.Text := Clipboard.AsText; slText.SaveToFile(ChangeFileExt(OpenDialog1.Filename, '.txt')); finally slText.Free; end; finally Screen.Cursor := crDefault; FWorkBook.Close; FExcel.Quit; end;end;end. 再将最后一个finally里面改成:finally Screen.Cursor := crDefault; FExcel.DisplayAlerts := False; FWorkBook.Close; FExcel.Quit; end; 大家近来看看哦 一个界面的问题 关于DevExpressBar? 怎样将字体设置保存,下次运行程序时自动恢复?在线。急!!! 有没有什么函数可以得到集合的元素个数。 谁能告诉我?TClientDataSet.commandtext TreeNode 的 GetNode 函数的参数如何使用?? Tlist,TStringlist,THashedStringlist的效率比较问题,求高手指点! delphi三层架构怎么在局域网实现连接啊,用的是socketconnection 两条SQL语句如何--ERROR? 大家可好呀,我回来了,大家欢迎一下吧 java初级学习。。。一个小case
csv格式的直接改文件名后缀就行了。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, BaseGrid, AdvGrid;type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}uses Comobj, Clipbrd;procedure TForm1.Button1Click(Sender: TObject);
var
FExcel: Variant;
FWorkbook: Variant;
FWorksheet: Variant;
slText: TStringList;
begin
if not OpenDialog1.Execute then
exit; Screen.Cursor := crHourGlass; try
FExcel := CreateOleObject('excel.application');
except
Screen.cursor := crDefault;
MessageDlg('Could not start Microsoft Excel!', mtError, [mbCancel], 0);
Exit;
end; try
FWorkBook := FExcel.WorkBooks.Open(OpenDialog1.Filename);
//FWorkSheet := FWorkBook.WorkSheets.Add;
FWorkSheet := FWorkBook.WorkSheets[1];
FWorkSheet.UsedRange.Copy;
slText := TStringList.Create;
try
slText.Text := Clipboard.AsText;
slText.SaveToFile(ChangeFileExt(OpenDialog1.Filename, '.txt'));
finally
slText.Free;
end;
finally
Screen.Cursor := crDefault;
FWorkBook.Close;
FExcel.Quit;
end;
end;end.
Screen.Cursor := crDefault;
FExcel.DisplayAlerts := False;
FWorkBook.Close;
FExcel.Quit;
end;