excel - フォルダー内のすべての Excel ファイルで文字列を検索して置換します

Question

フォルダー内のすべてのファイルで文字列を検索および置換できるように、文字列の検索および置換マクロを作成する際に助けが必要です。

たとえば、fofler = "C:\ifolder\" files list ="*.xlsx"

これまでのところ、1つのファイルに対してしか実行できません。フォルダー内のすべてのファイルに対して実行する必要があります

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