delphi7 中把数据写入excel,如何不提示而自动保存?
tryExcelApp:=CreateOleObject('Excel.Application');WorkBook:=CreateOleobject('Excel.Sh...
try
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
ShowMessage('ÄúµÄ»úÆ÷Àïδ°²×°Microsoft Excel.');
Exit;
end;
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Open( 'E:\aba.xls ' );
......
excelapp.save;
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
end;
end;
end;
一运行完就提示在当前位置发现已经存在名为“RESUME.XLW”的文件。您希望将该文件替换掉吗? 展开
ExcelApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
ShowMessage('ÄúµÄ»úÆ÷Àïδ°²×°Microsoft Excel.');
Exit;
end;
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Open( 'E:\aba.xls ' );
......
excelapp.save;
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
end;
end;
end;
一运行完就提示在当前位置发现已经存在名为“RESUME.XLW”的文件。您希望将该文件替换掉吗? 展开
4个回答
展开全部
加入:
ExcelApp.DisplayAlerts:=False;
ExcelApp.DisplayAlerts:=False;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
支持楼上的 使用ExcelApp.DisplayAlerts:=false;//不显示对话框
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用楼上说的第二点来解决更方便
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |