Поиск и замена текста в *.txt файлах

Пользователь

Сообщений: 104 Регистрация: 08.01.2013

21.01.2014 00:16:06

Здравствуйте уважаемые господа.
Прошу помощи с макросом для поиска и замены текста в текстовых файлах. Задача следующая: в экселе, в столбце "А", есть искомое значение, а в столбце "С" - то значение, на которое надо заменить искомое. Макрос открывает файл, ищет значение, заменяет его и сохраняет файл.
В макросе, что в примере ошибка типов на строке

Код

1	`For` `I = 1` `To` `UBound(FindValues, 2)`

Как исправить?

Прикрепленные файлы

123.txt (11.24 КБ)
test.xlsm (12.97 КБ)

Hugo

Пользователь

Сообщений: 26336 Регистрация: 22.12.2012

21.01.2014 01:31:55

Малой кровью так.
Т.к. код рассчитан на замену массива значений - дайте ему массив, тем более что ничего страшного не будет если не найдёт уже заменённое.
Можно было конечно код чуть дописать - но зачем усложнять... Просто учтите при использовании - давать нужно минимум 2 замены.
И я поменял ориентацию цикла.

Прикрепленные файлы

test.xlsm (14.05 КБ)

Изменено: Hugo - 21.01.2014 01:33:03

Derian Fox Пользователь Сообщений: 104 Регистрация: 08.01.2013	#3 21.01.2014 10:33:38 Супер. Спасибо большое.

Читают тему