Hello MMaher,
Change the FileName and FilePath variables to what you need. This works with Excel 2000 and up.
Sub ReplaceAllInCSV()
Dim FileName As String
Dim FilePath As String
Dim FindString As String
Dim FSO As Object
Dim ReplaceString As String
Dim Text As String
Dim TextFile As Object
FilePath = "C:\"
FileName = "Test.txt"
FindString = vbTab
ReplaceString = "|"
FileName = IIf(Right(FilePath, 1) <> "\", FilePath & "\", FilePath) & FileName
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextFile = FSO.OpenTextFile(FileName, 1, False)
Text = TextFile.ReadAll
TextFile.Close
Set TextFile = FSO.OpenTextFile(FileName, 2, False)
Text = Replace(Text, FindString, ReplaceString)
TextFile.Write Text
TextFile.Close
End Sub
Bookmarks