VBA例子 但对于delphi程序员很好懂吧