按键精灵如何实现顺序读取数据库（SQL）中的字段值，将值保存到EXCEL中,谢谢

追问：我需要源代码，谢谢

答案：给你段代码参考：
//将查询出的数据导出成Excel文件
procedure TForm1.N1Click(Sender: TObject);
var MSExcel:Variant;
  i,n:Integer;
  begin
  SaveDialog1.Filter:='*.xls|*.xls';
  SaveDialog1.DefaultExt:='XLS';
  if   SaveDialog1.Execute   then
  begin
      MSExcel:=CreateOLEObject('Excel.Application');
      MSExcel.WorkBooks.Add;
      MSExcel.Visible:=False;
      form1.ADOQuery1.Open;
      n:=form1.ADOQuery1.RecordCount;
      form1.ADOQuery1.First;
          MSExcel.Cells[1,1].NumberFormat:='@';
          MSExcel.Cells[1,1].Value:='编号';
          MSExcel.Cells[1,2].Value:='歌曲名';
          MSExcel.Cells[1,3].Value:='演唱者';
          MSExcel.Cells[1,4].Value:='类型代码';
          MSExcel.Cells[1,5].Value:='使用时间';
          MSExcel.Cells[1,6].Value:='备注';
      for i:=2 to n do
      begin
          MSExcel.Cells[i,1].NumberFormat:='@';
          MSExcel.Cells[i,1].Value:=ADOQuery1.FieldByName('SongID').AsString;
          MSExcel.Cells[i,2].Value:=ADOQuery1.FieldByName('SongName').AsString;
          MSExcel.Cells[i,3].Value:=ADOQuery1.FieldByName('Singer').AsString;
          MSExcel.Cells[i,4].Value:=ADOQuery1.FieldByName('ClassID').AsString;
          MSExcel.Cells[i,5].Value:=ADOQuery1.FieldByName('UseTimes').AsString;
          MSExcel.Cells[i,6].Value:=ADOQuery1.FieldByName('Note').AsString;
          form1.ADOQuery1.Next;
      end;
      MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
      MSExcel.ActiveWorkBook.Saved:=True;
      MSExcel.Quit;
  end;
  //messagebox(0,'数据已成功导出!','系统提示!',MB_OK+MB_ICONINFORMATION);
end;

其他：如果你的那个软件是固定的我倒是可以帮你写个小程序， 如果你的那个软件是固定的我倒是可以帮你写个小程序，
 

上一个：excel中IF函数多个数值的输出问题
下一个：delphi从EXCEL导入sql数据库，出现的问题。 拜托师傅指点怎么样才能正确，其他方法和代码也可以。