Excel 2013和2016总是出现功能区图标不显示，包含右上角的关闭×

Posted 2023-04-27

重新安装后一段时间还是出现此问题，2013和2016都是这样

参考技术A 打开Excel的文件选项——常规——用户界面选项——选择时显示浮动工具栏。或者是选项中的自定义功能区、快速访问工具栏中添加。追问

问题是现在点选项没反应，所有office都是这样了，不光是excel

Delphi 导出Excel

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 出错了，你要把错误提示也发上来才能帮你解决呢。本回答被提问者采纳