exapp:texcelapplication;
exsheet:texcelworksheet;
exbook:texcelworkbook;
procedure button1.click;
var fs:string;
begin
fs:='111.xlt';
exapp.Connect ;
exbook.connectto(exapp.workbooks.Add(fs,0));
exbook.Worksheets.Add(emptyparam,emptyparam,emptyparam,emptyparam,0);
exsheet.ConnectTo (exbook.sheets.item['入库单'] as _worksheet);
exsheet.Activate ;
exapp.visible[0]:=true;
end;
