5,392
社区成员
发帖
与我相关
我的任务
分享
uses ComObj;
var
MSExcel: Olevariant;
begin
try
MSExcel := CreateOLEObject('Excel.Application');
MSExcel.WorkBooks.Open('E:\system\桌面\a.xls');
MSExcel.Visible := False;
MSExcel.ActiveWorkbook.Password := 'a';
MSExcel.Save('E:\system\桌面\a.xls');
finally
MSExcel.ActiveWorkBook.Close;
MSExcel.Quit;
end;