[megaloman]

Код:

fXLS = "H:\Delete\ggg.xls"              ' Где Excel-файл
fTxt1 = "H:\Delete\Целевой файл.txt"    ' Где Исходный текстовый файл
fTxt2 = "H:\Delete\Результат.txt"       ' Где Результат

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fTxt1, 1)
S = F.ReadAll
F.Close

Range1 = "A1"           ' В какой клетке первое данное

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open fXLS

i = 0
Do While True
    Txt1 = XL.Range("A1").Offset(i, 0)
    If Txt1 = "" Then Exit Do
    Txt2 = XL.Range("A1").Offset(i, 1)
    S = Replace(S, CStr(Txt1), CStr(Txt2))
'    MsgBox CStr(Txt1) + "   " + CStr(Txt2)
    i = i + 1
Loop
' XL.ActiveWorkbook.Save
XL.Quit

Set F = FSO.CreateTextFile(fTxt2, True)
F.Write S
F.Close