按键精灵如何实现顺序读取数据库（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

代码内容如下：

EndIf

//获得一个网页元素信息内容

Plugin t1=Web.HtmlGet("html","tag:A&txt:闪闪惹人爱")

//获得一个网页元素信息内容

Plugin t2=Web.HtmlGet("html","tag:A&txt:白白的")

//获得一个网页元素信息内容

Plugin t3=Web.HtmlGet("html","tag:A&txt:敢不敢爱")

//获得一个网页元素信息内容

Plugin t4=Web.HtmlGet("html","tag:A&txt:看得最远的地方")

//获得一个网页元素信息内容

Plugin t5=Web.HtmlGet("html","tag:A&txt:风声")

//获得一个网页元素信息内容

Plugin t6=Web.HtmlGet("html","tag:A&txt:木兰星")

//获得一个网页元素信息内容

Plugin t7=Web.HtmlGet("html","tag:A&txt:只需要一首歌")

//获得一个网页元素信息内容

Plugin t8=Web.HtmlGet("html","tag:A&txt:心的距离")

//获得一个网页元素信息内容

Plugin t9=Web.HtmlGet("html","tag:A&txt:满满")

//获得一个网页元素信息内容

软件功能

1、网络游戏中可使用按键精灵制作脚本，实现自动打怪，自动补血，自动说话等。

2、办公族可用按键精灵自动处理表格间数据的转换，自动调整文档格式、文章排版，自动收发邮件等。

3、利用按键精灵实现定时自动打开检验网页链接，文献检索，收集资料等重复 *** 作。

4、任何只要在电脑前用双手可以完成的电脑 *** 作都可以替代完成。

---