Найти и заменить строку во всех файлах 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