msgbox browser("中国移动NGCRM系统").Page("中国移动NGCRM系统").Frame("Frame_7").WebTable("操作").GetCellData(1, 1)
' get web table cell values
Set otable = browser("中国移动NGCRM系统").Page("中国移动NGCRM系统").Frame("Frame_7").WebTable("操作")
For j = 0 to colNum
If otable.GetCellData(1, j) = "生效时间"Then
Exit for
End If
Next
For i = 2 to rowNum
If otable.GetCellData(i, 2) = "神州行轻松卡亲情号码" Then
eff1 = webtable.GetCellData(i, j)
End If
If otable.GetCellData(i, 2) = "短消息 [服务] [资费]" Then
eff2 = webtable.GetCellData(i, j)
End If
Next