procedure TForm1.Button5Click(Sender: TObject);
var
v , ExcelBook, ExcelSheet:Variant;
i,j : Integer;
CNT:Integer;
fiName: String;
VarPath:String;
S: String;
begin



            j:=0;

           try
           v:=CreateOleObject('Excel.application');
           if  VarIsEmpty(v) then
           showmessage('이미 엑셀 실행 중');

           except
           Showmessage('Excel no');
           exit;
           end;
           v.visible:= False;
          S:='c:computer';
           try
           FiName:=DateToStr(DateTimePicker1.Date);
           ExcelBook:= v.Workbooks.open(S+''+FiName);
           ExcelBook:=v.Workbooks.item[1];
           ExcelSheet:= ExcelBook.Worksheets.item[1];

           v.WorkSheets.Add;
           v.workbooks[1].worksheets[2].name:='냉장고제품';
           *-----------------------
            추가 하고자 하는 프로그램 내용

           여기는 제품을 검사하고 나서 엑셀파일 칼럼중에 'good' ,' bad'
            나타나 있는데 'good' 이라고 필터링 하면 'good' 이라고 하는
            레코드   들이 전체 다 보여주려고 하는데
            고수님들 도와 주세요  
          
           *----------------------
           v.Activate;

        
           v.visible:= true;
           except
           v.WorkBooks.Close;
           v.quit;
           end;
          

end;