Delphi 导出Excel

Posted 2023-03-05

var
i,n: Integer;
xlsApp: Variant;
begin
//判断adsMaster数据集是否为空
if adsMaster.Eof then begin
ShowMessage('没有数据！');
exit;
end;
//创建excel原生对象
xlsApp := CreateOleObject('Excel.Application');
xlsapp.WorkBooks.add;
xlsApp.Visible := false;
//激活sheet1
xlsApp.WorkSheets[1].Activate;
//adsMaster指向第一条
adsMaster.First;
i :=1;
//填Excel标题行，Cells是单元格集合
for n:=1 to adsMaster.FieldCount do xlsApp.Cells[i,n].Value := adsMaster.Fields[n-1].DisplayLabel;
//循环adsMaster
While not adsMaster.Eof do begin
inc(i);//因在循环前使用了一次填标题行，所以在前面做增量
for n:=1 to adsMaster.FieldCount do begin
if adsMaster.Fields[n-1].FieldName = 'WO' then xlsApp.Cells[i,n].Value := '''' + adsMaster.Fields[n-1].AsString
else xlsApp.Cells[i,n].Value := adsMaster.Fields[n-1].AsString;
end;
adsMaster.Next;
end;
//显示excel
xlsApp.Visible := true;
end.
为什么我运行到
xlsApp := CreateOleObject('Excel.Application');
这里就出错了呢?
这些代码可以直接用吗？

参考技术A var
i,n: Integer;
xlsApp: Variant;
定义这里，改成 xlsApp: OleVariant; 参考技术B 出错了，你要把错误提示也发上来才能帮你解决呢。本回答被提问者采纳