有代码,VBA,也可转换为DELPHI等,亲测可用,代码可研究,思路可借鉴