如何将数据集中的数据导入EXCEL中
解决方案 »
- Delphi WebBrowser打开网页问题
- 用delphi 如何判断机器装的QQ版本!是装了QQ2009还是QQ2010!
- 生成所有5位字母的排列要用一整天的时间吗?(P4 2.4G)
- ToolBar控件修改那个参数就可以在按钮上显示文字呢? 如ie工具栏上的后退一样上面有文字.分不多,请指点.
- 怎样接收从键盘口送进来的数据?
- 请教一个网络通讯问题
- 看了贴中的导入导出方法还是没有解决这问题!能解决的给100分.
- ACCESS数据库中如何保存图片
- 在使用ADOQuery中的SQL语句中出现的问题
- 我的程序把数据集另存为Excel时,导出43条的数据竟要30秒,请各位帮俺出出主意,如何提高导出效率?
- 可以在存储过程中进行条件判断吗
- 这样的文本文件如何读入数据库?
var
ExcelID:variant;
begin
try
ExcelID:=CreateOleObject('Excel.Application');
ExcelID.Cells[1,1]:=qryYourDataSet.FieldByName'field').asstring;
ExcelID.quit;
except
on exception do
begin
//提示出错
ExcelID.Quit;
end;
end;
end;具体的Excel语法可用宏录出VBA代码,我记不清了.
将dataset导出EXCEL的function
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;