if assigned(excelapp.cells.item[i,2].comment) and (not VarIsEmpty(excelapp.cells.item[i,2].comment.text)) then
if not VarIsNull(excelapp.cells.item[i,2].comment.text then ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionif assigned(excelapp.cells.item[i,2].comment) then
if not VarIsNull(excelapp.cells.item[i,2].comment then ...
if not VarIsNull(assigned(excelapp.cells.item[i,2].comment)) then
if assigned(excelapp.cells.item[i,2].comment) and (not VarIsEmpty(excelapp.cells.item[i,2].comment.text)) then
if not VarIsClear(assigned(excelapp.cells.item[i,2].comment)) then
if TVarData(UnVariant).VType = varError then ...
try valeur := excelapp.cells.item[i,2].comment.text ; if TVarData(valeur).VType = varError then except valeur := ''; end;