замена текстовых данных во всех документах в папке

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

замена текстовых данных во всех документах в папке (Макросы/Sub)

Сергей

Дата: Пятница, 16.05.2014, 11:57 | Сообщение № 1

Группа: Гости

Добрый день! Прошу Вашей помощи. Есть несколько сотен файлов, в которых нужно заменить одну фамилию на другую. Можно ли это как то реализовать макросом для поиска во всей папке?
Заранее благодарен за примеры макроса (к, сожалению сам написать такой я не могу)

Ответить

igrtsk

Дата: Пятница, 16.05.2014, 13:20 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 323

Репутация: 52 ±

Замечаний: 0% ±

Excel 2016

Суть вашего вопроса свелась к тому: помогите заменить неизвестно где, неизвестно на что, при неизвестном количестве замен.
Битва экстасенсов не здесь

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Сергей

Дата: Пятница, 16.05.2014, 16:44 | Сообщение № 3

Группа: Гости

Не совсем понятен Ваш сарказм. Я вполне понятно написал, что в папке есть несколько сотен файлов exel, созданных по шаблону. В каждом документе есть подпись руководителя, к примеру "Иванов И.И.". Мне необходимо данную Ф,И.О. заменить на "Петров П.П.". Собственно и все. Прошу прощения если все же написать непотно, в чем суть проблемы.

Ответить

nilem

Дата: Пятница, 16.05.2014, 16:59 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

возможно, что-то вроде этого:
[vba]

Код

Sub ertert()
Dim Fold As String, f As String
Application.ScreenUpdating = False
If Right(ThisWorkbook.Path, 1) <> "\" Then Fold = ThisWorkbook.Path & "\" Else Fold = ThisWorkbook.Path
f = Dir(Fold & "*.xls*", vbNormal)
Do While f <> ""
     If f <> ThisWorkbook.Name Then
         With Workbooks.Open(Filename:=Fold & f)
             .Sheets(1).UsedRange.Replace "Иванов", "Петров", xlWhole
             .Close True
         End With
     End If
     f = Dir()
Loop
Application.ScreenUpdating = True
End Sub

[/vba]