用vba吧:
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=14778&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=39839&skin=0