请教RangePtr::findnext的用法

Question

无人懂findnext的用法吗？我其实是想把该代码转为vc
Set c = Application.Selection.Find("1")
 If Not c Is Nothing Then
  MsgBox c.Value
 End If
Set c = Application.Selection.FindNext(c)
 If Not c Is Nothing Then
  MsgBox c.Value
 End If但在vc FindNext里的参数我不知道怎样给值．请问有人懂吗？

Answer 1

Excel?
PivotCellPtr c = Selection->Find("1"); // c的类型取决于实际应用
while (c)
{
  // do something.
  ...  IDispatchPtr disp = c;
  _variant_t v = disp;
  c = Selection->FindNext(v);
}

Answer 2

试过不行_variant_t   v   =   disp; 
这行不能赋值，　强转也不行

Answer 3

_variant_t v = (IDispatch*)disp;

Answer 4

V_VT(&v) = VT_DISPATCH;
V_DISPATCH(&v) = (IDispatch*)disp;

Answer 5

试过可以了，　但我不断findnext后仍然不值，　不知道如何判断findnetx是否结束．

Answer 6

还有问题是find("1")是可以查到包含1的数据，　但如何我想包含1和包含0都成立的，那应该怎样写啊