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

iteye_21199

于 2012-05-30 09:26:00 发布

阅读量127

点赞数

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

_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