您的位置:首页 > 其它

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

2012-05-30 09:26 246 查看
_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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐