VFP9
求代码
如何把Excel工作簿中所有的工作表中的所有全角ABCD换成半角
也就是把所有的Ａ换成A，Ｂ换成B，Ｃ换成C，Ｄ换成D
示例：
_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).activate
_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