CB OLE操作excel Find函数_呼唤妖哥

[czq981113]

CB操作OLE,想用VBA中的Find函数.返回值是range对象.找到结果的话还好,找不到的时候,说明里只说返回Nothing,这个Nothing不知道是个什么东东?我在CB里如何判断没有找到结果的情况呢?

[ccrun.com]

当搜索结果为空的时候，这个Variant对象确实很诡异，IsNull/IsEmpty/IsArray 体现不出来实际情况，所以在没有找到更好的办法之前，先用猥琐的办法吧：

	String keyword = "aaa";
	Variant range = sheet.OlePropertyGet("Cells").OleFunction("Find",
		WideString(keyword),
		excelApp.OlePropertyGet("ActiveCell"), // After:=ActiveCell,
		-4163, // LookIn:=xlValues,
		2, // LookAt:=xlPart,
		1, // SearchOrder:=xlByRows,
		1, // SearchDirection:=xlNext,
		false, // MatchCase:=False,
		false, // MatchByte:=False,
		false // SearchFormat:=False
		);

	if (range.pdispVal) // 有效但是感觉不专业
	{
		range.OleFunction("Activate");
	}
	else
		Caption = "Empty";

[czq981113]

虽然不大理解这个range.pdispVal具体是什么意思,但是能够解决问题.谢谢妖哥.