CreateOleObject打开的Excel排序后, 怎么屏蔽掉“保存”的对话框??? ( 积分: 200 )

  • 主题发起人 主题发起人 catfox
  • 开始时间 开始时间
C

catfox

Unregistered / Unconfirmed
GUEST, unregistred user!
用一下代码打开Excle文件,并排序后, 会弹出一个对话框,问是否保存,请问怎么屏蔽掉保存的对话框, thx

XLSApp := CreateOleObject('Excel.Application');
XLSApp.workBooks.Open(FileName);
Range := XLSApp.Workbooks[1].Worksheets[0 + 1].UsedRange;
SortCol := XLSApp.Workbooks[1].Worksheets[0 + 1].Range['D4', 'D4'];
Range.Sort(SortCol,NULL,NULL,NULL,NULL,NULL,NULL,NULL,1,false,NULL,NULL);
 
用一下代码打开Excle文件,并排序后, 会弹出一个对话框,问是否保存,请问怎么屏蔽掉保存的对话框, thx

XLSApp := CreateOleObject('Excel.Application');
XLSApp.workBooks.Open(FileName);
Range := XLSApp.Workbooks[1].Worksheets[0 + 1].UsedRange;
SortCol := XLSApp.Workbooks[1].Worksheets[0 + 1].Range['D4', 'D4'];
Range.Sort(SortCol,NULL,NULL,NULL,NULL,NULL,NULL,NULL,1,false,NULL,NULL);
 
加上XLSAPP.saved:=true;语句,相当于告诉OLE对象已经保存过了
 
XLSApp.Saved := True;
报错“ Mothod 'saved' not supported by automation object”
 
XLSApp.Saved.Workbooks[1].Saved := True;
 
多人接受答案了。
 
后退
顶部