利用office提供的owc11,使用vba做出来的一个例子