try
MyExcelApplication.Connect;
except
application.MessageBox('连接Execl失败!,请检查Execl安装与否!','软件');
Exit;
end;
Try
MyExcelApplication.Visible[0] := true;
MyExcelApplication.Caption := '我的应用程序调用 Microsoft Excel';
MyExcelApplication.Workbooks.Open(afilename,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,1)
MyExcelApplication.Worksheets.Add(EmptyParam,EmptyParam,1,EmptyParam,1);
SheetID:=MyExcelApplication.Worksheets.Count;
sheet:=MyExcelApplication.Worksheets.Item[sheetid];
sheet.name:=aCaption;
sheet.Cells[1,4].Value:=acaption;//'第一行第四列'; MyExcelApplication.DisplayAlerts[1]:=false;
MyExcelApplication.Workbooks[1].Saved[SheetID]:=true; finally
MyExcelApplication.Disconnect;
MyExcelApplication.Quit; end;
这样直接退出,将不能保存所修改的。
如果将MyExcelApplication.DisplayAlerts[1]:=false;改为true,会弹出一个对话框进行手动保存是可以的。
现在不想让手工保存,在退出时能自地动保存。
应该设置哪个呢??
解决方案 »
- 窗口还原时组件按比例还原
- 编制单机版delphi数据库,使用Paradox的db好,还是用Ado的mdb好
- 再求那个sql语句,高手看看有没有方法实现!在线急等,谢谢了
- 怎样通过SQL查询的问题,谢谢。
- 如果把DBEdit2中的字符留住????
- treeview节点的定位问题?
- 怎样实现类似MSN Messenger的消息弹出窗口?
- 关于SPComm的问题。
- 请大虾指点--我的属性那儿出了问题
- 各位DELPHI爱好者application.messagebox('','',MBYES+MB_iconexclamation)中的MB_iconexclamation帮助里为什么没有,我想知道到底mb_icon有哪些?能告诉我么?
- ToolBar中的按钮...(小问题,送大分,呵呵...)
- 郁闷,问的问题总得不到回答! 散分
procedure TForm1.CreatOleClick(Sender: TObject);
var
i,j,Num: integer;
str:char;
begin
try
MsExcel := CreateOleObject('Excel.Application');
WorkBook := MsExcel.WorkBooks.Add;
WorkSheet := MsExcel.WorkSheets.Add;
except
MessageDlg('Can nott creat Excel!', mtWarning, [mbOK], 0);
exit;
end;
MsExcel.Visible := True;
for j:=1 to 10 do begin
str:=chr(64+j);
for i := 1 to 20 do begin
num:=i*j;
WorkSheet.Range[str + IntToStr(i)].Value :=num ;
end;
end;
try
WorkSheet.SaveAs(ExtractFilePath(Application.EXEName) + 'TEMP.XLS');
except
MessageDlg('Can not save as TEMP.XLS!', mtInformation, [mbOK], 0);
end;
end;
用close属性就可以了。。2楼回答的是不是打开已存在的
用close属性就可以了。。2楼回答的是不是打开已存在的