把Excel工作簿中所有的工作表中的所有全角ABCD换成半角（摘自csdn论坛）

_ole_excel = CreateObject("Excel.Application")   
_ole_excel.VISIBLE=.T.
_ole_excel.WorkBooks.Open('123.xls')   
FOR each ff IN _ole_excel.Worksheets
_ole_excel.Worksheets(ff.name).cells.replace('a','b',1,1,.t.,.t.)
NEXT

_ole_excel = CreateObject("Excel.Application")   
_ole_excel.VISIBLE=.T.
_ole_excel.WorkBooks.Open('123.xls')   
FOR each ff IN _ole_excel.Worksheets
_ole_excel.Worksheets(ff.name).cells.replace('a','b',1,1,.t.,.t.)
NEXT