查找並替換文件夾中所有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