Sheet에 존재하는 모든 Object에 대한 ID 및 Type 출력 QlikView



sub test
Objects = ActiveDocument.Sheets("SH02").GetSheetObjects
For i = lBound(Objects) To uBound(Objects)
    msgbox(i&": "&Objects(i).GetObjectID&", "&Objects(i).GetObjectType)
next
end sub

Sheet에 존재하는 모든 Object에 대한 ID 및 Type 출력

컨테이너를 만났을때
For i = lBound(Objects) To uBound(Objects)
  msgbox(i&": "&Objects(i).GetObjectID&", "&Objects(i).GetObjectType)
if Objects(i).GetObjectType = 36 then
set CTP = Objects(i).GetProperties
for j = 0 to CTP.ContainedObjects.Count - 1
msgbox(Objects(i).GetObjectID&": "& j&": "&CTP.ContainedObjects.Item(j).Id_OBSOLETE)
next
  end if
next

덧글

댓글 입력 영역


접속정보

통계 위젯 (화이트)

613
49
51667

이 이글루를 링크한 사람 (화이트)

3