盒子论坛 v2.1

uses Excel2000, {C:\Program Files\Borland\Delphi6\Imports}

OleServer;

procedure TFrmMain.WriteExcel(AdsData: TADODataSet; sName, Title: string);
var
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
i, j: integer;
filename: string;
begin
filename := concat(extractfilepath(application.exename), sName, '.xls');
try
ExcelApplication1 := TExcelApplication.Create(Application);
ExcelWorksheet1 := TExcelWorksheet.Create(Application);
ExcelWorkbook1 := TExcelWorkbook.Create(Application);
ExcelApplication1.Connect;
except
Application.Messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR + mb_Ok);
Abort;
end;
try
ExcelApplication1.Workbooks.Add(EmptyParam, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
AdsData.First;
for j := 0 to AdsData.Fields.Count - 1 do
begin
ExcelWorksheet1.Cells.item[3, j + 1] := AdsData.Fields[j].DisplayLabel;
ExcelWorksheet1.Cells.item[3, j + 1].font.size := '10';
end;
for i := 4 to AdsData.RecordCount + 3 do
begin
for j := 0 to AdsData.Fields.Count - 1 do
begin
ExcelWorksheet1.Cells.item[i, j + 1] :=AdsData.Fields[j].Asstring;
ExcelWorksheet1.Cells.item[i, j + 1].font.size := '10';
end;
AdsData.Next;
end;
ExcelWorksheet1.Columns.AutoFit;
ExcelWorksheet1.Cells.item[1, 2] := Title;
ExcelWorksheet1.Cells.Item[1, 2].font.size :='14';
ExcelWorksheet1.SaveAs(filename);
Application.Messagebox(pchar('数据成功导出' + filename), 'Hello',mb_Ok);
finally
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free;
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
end;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
WriteExcel(ADODataSet1, 'ergonge','hhh');
end;

----------------------------------------------

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2003/10/30 13:00:01

2楼：

好象没提到单元格格式的控制，再说这是数据导出到excel中
如果从excel导入到数据库中的时候呢？如果excel中数据是数字的那么导入的时候
就提示双精度转换字符串失败！我是想先把excel的单元格转换成文本格式
----------------------------------------------
不爱我-就别靠近我。

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2003/10/30 14:17:01

3楼：

zizii老大给看一下嘛！
----------------------------------------------
不爱我-就别靠近我。

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/10/30 14:46:25

4楼：

在excel中记录宏（其中包含你想要得操作，例如单元格格式），然后编辑这个宏可以看到vba代码，然后想办法转为delphi的，具体看看msdn等。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2003/10/30 15:30:11

5楼：

老大就是有办法！谢谢
----------------------------------------------
不爱我-就别靠近我。

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/30 16:24:11

6楼：

OU 没看清楚题目，不好意思！
----------------------------------------------

信息

登陆以后才能回复