关于网友提出的“ 倒入excel问题？？谢谢~！”问题疑问，本网通过在网上对“ 倒入excel问题？？谢谢~！”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 倒入excel问题？？谢谢~！
描述: procedure TForm1.Button3Click(Sender: TObject);
b,c:sting;
begin
b:=是从数据库中取出的值;
c:='select fffff,dddd'+b;
c:=c+'from asdfaff';
query1.close;
query1.sql.clear;
query1.sq.add(c);
query1.open
end
procedure TForm1.Button1Click(Sender: TObject);
var
v:variant;
sheet:variant;
i,j:integer;
begin
v:=createoleobject('Excel.Application');
v.visible:=true;
v.workbooks.add(-4167);
v.workbooks[1].sheets[1].name:='ghdfgh';
sheet:=v.workbooks[1].sheets['ghdfgh'];
query1.First;
for i:=1 to query1.RecordCount do
begin
v.workbooks[1].sheets[1].cells[i,1]:=query1.FieldByName('_____').Value;
query1.Next;
end;
end;
我画下划线处怎么写，才能把字段b动态的写到excel中啊？
解决方案1:
v.workbooks[1].sheets[1].cells[i,1]:=query1.Fields[i].AsString
以上介绍了“ 倒入excel问题？？谢谢~！”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2465927.html
