非常急！！谢谢了。

关于网友提出的“ 非常急！！谢谢了。
”问题疑问，本网通过在网上对“ 非常急！！谢谢了。
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 非常急！！谢谢了。
描述:

var
v:variant;
sheet:variant;
i,j:integer;
begin
v:=createoleobject('Excel.Application');//创建OLE对象
v.visible:=true;
v.workbooks.add(-4167); //添加工作表
v.workbooks[1].sheets[1].name:='sdfa';
sheet:=v.workbooks[1].sheets['sdfa'];
query1.First;
for j:=0 to query1.FieldCount-1 do
for i:=1 to query1.RecordCount do
begin
v.workbooks[1].sheets[1].cells[i,1]:=query1.Fields[j].AsString;
query1.Next;
end;
end;
报错!!!'list index out of bounds(9)'

---

解决方案1:

for i:=1 to query1.RecordCount do
是不是
for i:=1 to query1.RecordCount-1 do

解决方案2:

for j:=1 to query1.FieldCount do
for i:=1 to query1.RecordCount do
begin
v.workbooks[1].sheets[1].cells[i,1]:=query1.Fields[j].AsString;
query1.Next;