查找并替换文件夹中所有excel文件中的字符串

Question

我需要帮助创建查找和替换字符串宏，以便它可以在文件夹中的所有文件中查找和替换字符串。

例如fofler = "C:\ifolder\" 文件列表= "*.xlsx"

到目前为止，我只能做到这一点对一个文件，我需要做的是所有文件的文件夹

Sub ReplaceStringInFile() 

Dim sBuf As String 
Dim sTemp As String 
Dim iFileNum As Integer 
Dim sFileName As String 

' Edit as needed 
sFileName = "C:\macro\test.txt" 

iFileNum = FreeFile 
Open sFileName For Input As iFileNum 

Do Until EOF(iFileNum) 
    Line Input #iFileNum, sBuf 
    sTemp = sTemp & sBuf & vbCrLf 
Loop 
Close iFileNum 

sTemp = Replace(sTemp, "THIS", "THAT") 

iFileNum = FreeFile 
Open sFileName For Output As iFileNum 
Print #iFileNum, sTemp 
Close iFileNum 

End Sub 

Answer 1

当您在实际上有打开文本文件的代码 - 不是Excel文件 - 我采用了相同的方法

类似这样的地方

1. Dir用于遍历特定文件夹中的所有txt文件。
2. 使用FileScriptingObject一次读入所有文本，进行替换，然后用更新的文本覆盖文件文件。

代码

Sub ReplaceStringInFile() 

Dim objFSO As Object 
Dim objFil As Object 
Dim objFil2 As Object 
Dim StrFileName As String 
Dim StrFolder As String 
Dim SstrAll As String 

Set objFSO = CreateObject("scripting.filesystemobject") 
StrFolder = "c:\macro\" 
StrFileName = Dir(StrFolder & "*.txt") 

Do While StrFileName <> vbNullString 
    Set objFil = objFSO.opentextfile(StrFolder & StrFileName) 
    strAll = objFil.readall 
    objFil.Close 
    Set objFil2 = objFSO.createtextfile(StrFolder & StrFileName) 
    objFil2.Write Replace(strAll, "THIS", "THAT") 
    objFil2.Close 
    StrFileName = Dir 
Loop 
End Sub