//Menutup Excel
procedure TForm1.Button6Click(Sender: TObject);
begin
       if not VarIsEmpty(V) then
            V.Quit;       
end;
