Question

delphi中将dbGrid中的数据保存到excel

如题网上搜了很多代码，可是粘贴进去都不行，这段实现代码要放在那个位置？（通过一个点击一个按钮来触发），希望有详细的代码

Answer 1

var

  I, J: Integer;

  ExcelApp, Sheet: Variant;

begin

  // 创建一个excel的ole对象

  ExcelApp := CreateOleObject('Excel.Application');

  try

    // 打开一个excel文件

    if not RzOpenDialog1.Execute then Exit;

    ExcelApp.WorkBooks.Open(RzOpenDialog1.FileName);

    try

      // 设置工作区

      ExcelApp.WorkSheets[1].Activate;

    i := 0;

    while not Query. EOF do

    begin    

        sheet.Cells[i, j] := Query.FieldByName("列Field").Asstring;

        Query.Next;

   end;  

    finally

      // 关闭工作区

      ExcelApp.WorkBooks.Close;

    end;

  finally

    // 释放ole对象

    ExcelApp.Quit;

你加我Q我告诉你

追问

你qq多少啊？

追答

我加你吧 你贴你的QQ出来