Declare
 Item_Type varchar2(60);
 item_count number:=0;
Begin

Item_Type:=GET_ITEM_PROPERTY(:system.curren_item, ITEM_TYPE);

If Item_Type IN ('TEXT ITEM') then

  item_count:=item_count+1;

  --Code to get the item values if the item is a text item ---
  -- for exporting the data to Excel ----

End if;

End;

Declare
it_id Item; 
ItemType Varchar2(255);
item_name varchar2(255):='YOUR_BLOCK.YOUR_ITEM';
BEGIN
 Message('1');
 Message('1');
 it_id := Find_Item(item_name); 
 Message('2');
 Message('2');
 ItemType:=Get_item_property(it_id,ITEM_TYPE);
End;