procedure TXCDaliyPrintform.Button4Click(Sender: TObject); var str:string; i:Integer; excelapp,sheet:Variant; begin // lbl2.Caption:=DateTimeToStr(Now); str:=''; DBGrid1.DataSource.DataSet.DisableControls; for i:=0 to DBGrid1.DataSource.DataSet.FieldCount-1 do str:=str+DBGrid1.DataSource.DataSet.fields[i].DisplayLabel+char(9); str:=str+#13; DBGrid1.DataSource.DataSet.First; while not(DBGrid1.DataSource.DataSet.eof) do begin for i:=0 to DBGrid1.DataSource.DataSet.FieldCount-1 do str:=str+DBGrid1.DataSource.DataSet.Fields[i].AsString+char(9); str:=str+#13; DBGrid1.DataSource.DataSet.next; Label4.Caption:=IntToStr(DBGrid1.DataSource.DataSet.RecNo); Application.ProcessMessages; end;//end while DBGrid1.DataSource.DataSet.EnableControls; clipboard.Clear; Clipboard.Open; Clipboard.AsText:=str; Clipboard.Close; excelapp:=createoleobject('excel.application'); excelapp.workbooks.add(1); // excelapp.workbooks.add(-4167); sheet:=excelapp.workbooks[1].worksheets[1]; sheet.name:='sheet1'; sheet.paste; Clipboard.Clear; // sheet.columns.font.Name:='宋体'; // sheet.columns.font.size:=9; // sheet.Columns.AutoFit; excelapp.visible:=true; // lbl3.Caption:=DateTimeToStr(Now); end;

这段代码是一个 Delphi 程序中的按钮点击事件处理程序，它的主要作用是将 DBGrid 组件中的数据复制到剪贴板，并粘贴到 Excel 工作表中。

具体的实现过程如下：

1. 首先声明了一些变量，包括 str 字符串、i 整数、excelapp 和 sheet Variant 类型的对象。

2. 然后禁用了 DBGrid 组件所绑定的数据集的控件，以避免在复制数据时出现异常。

3. 接着通过循环遍历数据集中的每一个字段，将每个字段的名称和值拼接成一个字符串 str，并加上制表符和换行符。

4. 循环结束后，启用数据集控件，并将拼接好的字符串 str 复制到剪贴板。

5. 创建一个 Excel 应用程序对象 excelapp，并在该对象上添加一个新工作簿，命名为“sheet1”。

6. 获取新工作簿的第一个工作表对象 sheet，并将剪贴板中的数据粘贴到该工作表中。

7. 最后关闭剪贴板，使 Excel 应用程序对象可见。

需要注意的是，该程序并没有对复制和粘贴操作进行异常处理，因此如果在复制或粘贴数据时出现异常，可能会导致程序崩溃。同时，该程序的实现方式也不够优雅，可以通过更好的方法来实现将数据从 DBGrid 组件中导出到 Excel 工作表中的功能。