Question

怎么将 Delphi 7 中的数据集导入Excel表中???

怎么将Delphi 7里查询出来的数据集导入到Excel表中？？？

Answer 1

我这里有个例子 希望可以帮到你.. 下面只是EXCEL的操作原理 可以自己去扩展
--------------------------
放三个DELPHI自带的Severs下的ExcelApplication，ExcelWorkbook，ExcelWorksheet三个控件
代码如下：
procedure TForm1.btn1Click(Sender: TObject);
var
I,J: Integer;
begin
try
begin
ExcelApplication1.Workbooks.Add(EmptyParam, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
for i := 2 to 3 do
begin
for j := 1 to 5 do
begin
ExcelWorksheet1.Cells.item[i, j ] :='1';
end;
end;
ExcelWorksheet1.Columns.AutoFit;
ExcelWorksheet1.Cells.item[1, j/2] := 'aab';//标题单元格的内容
ExcelWorksheet1.Cells.ColumnWidth:='10'; //设置单元格的宽度
ExcelWorksheet1.Cells.RowHeight:='15'; //设置单元格的高度
ExcelWorksheet1.Cells.Font.Size:='10'; //设置单元格字体的大小
ExcelWorksheet1.Cells.Font.Color:=clred;
ExcelWorksheet1.Cells.Item[1, j/2].font.size :='14';//标题单元格字体的大小
ExcelWorksheet1.SaveAs('D:\a.xls'); //保存EXCEL 以及命名文件名
Application.Messagebox(pchar('数据成功导出'), 'Hello',mb_Ok);
end
finally
ExcelApplication1.Disconnect; //断开连接
ExcelApplication1.Quit; //退出EXCEL
ExcelApplication1.Free;//释放空间
ExcelWorksheet1.Free; //释放空间
ExcelWorkbook1.Free; //释放空间
end;
end;

Answer 2

用了楼上的例子
觉得ExcelWorksheet1.Columns.AutoFit;好像没什么用
另外ExcelWorksheet1.Cells.ColumnWidth:='10'之类的语句一用就所有列都是10了，我想不同的列不同的宽度。
当我正在用EXCEL编辑其他文件的时候，这段代码执行完，把我其他打开的EXCEL都关闭了，而且还不保存，EXCEL报错。