delphi导出数据至Excel的七种方法及比较以及一些EXCEL单元格的操作

Application.ProcessMessages;
end;
tsList.Add(s);
try
try
ADOQuery.First;
While Not ADOQuery.Eof do
s,filename :string;
aSheet :Variant;
excel :OleVariant;
savedialog :tsavedialog;
begin
Result := true;
try
excel:=CreateOleObject('Excel.Application');
var h,k:intering;
begin
try
Excelid := CreateOLEObject('Excel.Application');
except
MessageBox(Application.Handle,'数据导出完毕！','系统提示',MB_ICONINFORMATION or MB_OK);
try
if copy(FileName,length(FileName)-3,4)<>'.xls' then
aSheet.range['A1:H1'].Font.size := 20; //字体
设置A1到H1的单元格的字体大小为20，可以Column[n]设置某列的字体。
aSheet.range['A1:H1'].Font.bold := true;
设置A1到H1的单元格的字体 加粗
一;
delphi 快速导出excel
uses ComObj,clipbrd;
function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean;
const
xlNormal=-4143;
var
y : integer;
tsList : TStringList;
//tsList.Add('查询结果'); //加入标题
s:=''; //加入字段名
for y := 0 to adoquery.fieldCount - 1 do
begin
s:=s+adoQuery.Fields.Fields[y].FieldName+#9 ;
*************************************************************************************************
二;
delphi如何导出EXCEL，代码。非第3方控件
首先在Uses处加上ComObj
procedure TForm1.Button1Click(Sender: TObject);
Excelid.WorkSheets[1].Cells[2,1].Value := '组别编号';
Excelid.WorkSheets[1].Cells[2,2].Value := '公司编号';
Excelid.WorkSheets[1].Cells[2,3].Value := '组别名称';
Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
Exit;
end;
try
ADOQuery1.Close;
aSheet.range[TMP].Borders[2].LineStyle := 1;
aSheet.range[TMP].Borders[3].LineStyle := 1;
aSheet.range[TMP].Borders[4].LineStyle := 1;
aSheet.range[TMP].Borders[1].Weight := 2;
savedialog.FileName:=sfilename; //存入文件
savedialog.Filter:='Excel文件(*.xls)|*.xls';
if savedialog.Execute then
begin
if FileExists(savedialog.FileName) then
Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
result:=true;
Excel.Quit;
//screen.cursor:=crDefault;
exit;
end;
aSheet:=excel.Worksheets.Item[1];
tsList:=TStringList.Create;
excel.workbooks.add;
except
//screen.cursor:=crDefault;
showmessage('无法调用Excel！');
exit;
end;
savedialog:=tsavedialog.Create(nil);
end;
调用:
ToExcel('D:\a.xsl',QueryToExcel);//路径可以自定义
-------------------------------------------------------------------------------------------------
Excelid.worksheets[1].Range['A1:c1'] := '宋体';
Excelid.worksheets[1].Range['A1:c1'].Font.Size := 9;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from jj_department');
ADOQuery1.Open;
k:=ADOQuery1.RecordCount;
Excelid.Visible := True;
Excelid.WorkBooks.Add;
Excelid.worksheets[1].range['A1:c1'].Merge(True);
Excelid.WorkSheets[1].Cells[1,1].Value :='部门编码表' ;
Exit;
end;
except
Excel.Quit;
savedialog.free;
screen.cursor:=crDefault;
FileName:=FileName+'.xls';
Excel.ActiveWorkbook.SaveAs(FileName, xlNormal, '', '', False, False);
except
Excel.Quit;
try
if application.messagebox('该文件已经存在，要覆盖吗？','询问',mb_yesno+mb_iconquestion)=idyes then
DeleteFile(PChar(savedialog.FileName))
Clipboard.AsText:=tsList.Text;
except
result:=false;
end;
finally
tsList.Free;
end;
aSheet.Paste;
aSheet.Columns[N].NumberFormatlocal := '@'; //文本
设置某列的单元格格式为文本格式，N为列号
aSheet.Columns[N].ColumnWidth := Length;
设置某列的单元格宽度， Length为具体的长度
aSheet.range[TMP].Borders[1].LineStyle := 1;
else
begin
Excel.Quit;
savedialog.free;
//screen.cursor:=crDefault;
设置某一区域的边框为实线边框（1,2,3,4代表上，下，左，右，LineStyle边框的线类型，1代表实线，其他可以自己验证；Weight代表变现宽度
aSheet.range['A1:H1'].HorizontalAlignment := 3; //居中
设置A1到H1的单元格内容居中， 3代表居中，其他可以自己试试
Exit;
end;
filename:=savedialog.FileName;
end;
savedialog.free;
if filename='' then
begin