Qt excel VBA findNext及find使用

QAxObject *range = pWorksheet->querySubObject("UsedRange");//获得表格范围
    if ( range )
    {
        QAxObject   *find =  range->querySubObject("Find(QVariant)",target);//target为需要查找的字符，类型为QVariant
        int row，col;
           QString firstAddress =  find->dynamicCall("Address()").toString();//获取查找到结果的单元格地址
          qDebug()<<firstAddress;
           QString address = NULL;
        while(address != firstAddress)
        {
            row = find->property("Row").toInt();
            col = find->property("Column").toInt();
            qDebug()<<row<<" " <<col;
            find = range->querySubObject("FindNext(QVariant)",find->asVariant());//调用FindNext方法
           address = find->dynamicCall("Address()").toString();
        }
    }
    delete find;
    delete range;