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

最新推荐文章于 2025-08-30 11:21:14 发布

最新推荐文章于 2025-08-30 11:21:14 发布 · 145 阅读

本文介绍了一种使用VBA批量替换Excel工作表中指定单元格内容的方法。通过创建Excel应用程序对象并使其可见，打开指定的工作簿，然后遍历所有工作表，将所有出现的字符'a'替换为'b'。

_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