查找并replace目录中所有Excel文件工作簿中的string

我正在写一个VBA代码来replace位于特定目录中的多个Excel文件（工作簿）中的特定string。 我试图search堆栈溢出，我find答案，但是这是通过在Excel中的macrosreplace文本文件中的string。 同样的链接是查找并replace文件中的string 。

我的所有工作簿都有三个工作表，每个都在单元格A2中使用彭博公式：

=BDH("CBK IN Equity","BID","07-04-2015 09:00:00","07-04-2015 16:00:00") 

这项研究需要一个macros，它将在许多这样的工作簿中用ALBK代替特定目录中的CBK。 这是为了下载ALBK的数据来代替CBK。

Answer 1

使用公式属性来获取单元格中的公式的string值，然后在replace文本之后重新分配它。

 Dim formulaString as String formulaString = ThisWorkbook.Sheets(1).Range("A1").Formula formulaString = Replace(formulaString,"CBK","ALBK") ThisWorkbook.Sheets(1).Range("A1").Formula = formulaString 

浏览工作簿中的每个工作表

 Dim wb as workbook Dim i as integer set wb = thisworkbook 'or whatever you choose to open here for i = 1 to wb.worksheets.count wb.sheets(i).range("A1").Formula = Replace(wb.sheets(i).range("A1").Formula,"CBK","ALBK") next i