Теперь код работает идеально. Заменяет значения в хоть в 1 книге из 100 хоть в 99 из 100.

Только забыли строку одну перед Next

'Закрываем книгу с сохранением изменений
      wb.Close True

В общем спасибо большое. Странно что такой код я не нашел в сети.

Исправлено.

Скрытый текст

Sub MassValueReplacement()    Dim sFolder As String, sFiles As String    Dim wb As Workbook    Dim FilesToOpen    'диалог запроса выбора папки с файлами    FilesToOpen = Application.GetOpenFilename _      (FileFilter:="All files (*.*), *.*", _      MultiSelect:=True, Title:="Choose files")    If TypeName(FilesToOpen) = "Boolean" Then        MsgBox "Не выбрано ни одного файла"        Exit Sub    End If    'отключаем обновление экрана, чтобы наши действия не мелькали    Application.ScreenUpdating = False    sFiles = Dir(sFolder & "*.xls*")    Do While sFiles <> ""        'открываем книгу        Set wb = Application.Workbooks.Open(sFolder & sFiles)        'действия с файлом        wb.Sheets("2").Range("D23").Value = "dummy" & vbCrLf & "dummy"        wb.Sheets("ПРИЛОЖЕНИЯ").Range("E44").Value = "dummy"        wb.Sheets("ПРИЛОЖЕНИЯ").Range("E45").Value = "dummy"        'Закрываем книгу с сохранением изменений        wb.Close True 'если поставить False - книга будет закрыта без сохранения        sFiles = Dir    Loop    'возвращаем ранее отключенное обновление экрана    Application.ScreenUpdating = True End Sub

В приципе все работает, НО так как книг в папке много (поэтому я вручную и чтобы ничего не перепутать выбираю папку которая мне нужна) эксель экстренно сам по себе закрывается и не обрабатывает все книги, а только какую-то часть.

И когда я выбираю например 10 книг из 100, то он все равно пытается обработать все 100 книг а не те 10 которыя я выбрал.

Почему так происходит и где ошибка ?

Здравствуйте, Sanja, Большое спасибо. Я умею пользоваться поиском и Гуглом, но эту информацию не нашел. Очень признателен.

Я приложил пустые шаблоны. Из Аксесс выгружаются данные и этот шаблон заполнен и нужно вставлять в определенные незаполненные ячейки определенные данные, которые появляются намного позже. Из этичеких соображений я посчитал не правильным приклыдывать уже рабочие файлы.

По той ссылке куда вы меня отправили мне пригодился первый код. Я изменил строку №18 в коде на:

wb.Sheets(4).Range("D23").Value = "Информационное письмо № 04-02/02-09" & vbCrLf & "Information letter № 04-02/02-09"

Все сработало хорошо, правда эксель зависал в процессе.

Единственное что:

1) в шаблоне есть 2 скрытых листа и как оказалось нужный мне лист это wb.Sheets(4), а не лист с названием "2". Как изменить порядковый номер листа, на название листа ?

2) Макрос в процессе прервался и изменил только половину файлов. Пришлось запускать макрос повторно. Можно как-то на этапе выбора папки, видеть все файлы в папке и .pdf и .doc и все Эксель файлы и выбирать по дате изменения, чтобы видеть какие файлы макрос не обработал, когда прервался ? Ну, типа вручную выбрать 10 файлов из 100

Спасибо !

Добрый день, коллеги !

Есть вопрос. Моих знаний программирования на VBA недостаточно и поэтому прошу помощи у более опытных пользователей.

Ситуация такая:
Есть  много (около 600) книг эксель. Все они однотипны и рассортированы по подпапкам. Во всех из них нужно в определенную ячейку вставлять определенное значение. Как пример, на лист с названием "2" в ячейку D23 нужно вставить значение:

Информационное письмо № 04-02/02-09
Information letter № 04-02/02-09

Для других книг из другой папки нужно будет вставлять уже другое значение в эту ячейку.

Из базы Access все данные подтягиваются автоматически, но в эту ячеку D23 данные не подтягиваются, потому что номер письма мы узнаем намного позднее и приходится вручную во все книги во всех папках его проставлять.

Для знающего человека это пустяковое дело. Буду признателен, если кто-то напишет код.

Прикладываю пустые шаблоны, где требуется прописывать определенное значение. Вообще хотелось бы в дальнейшем и в другие ячейки на других листах вставлять требуемые значения.

Буду очень благодарен если поможете.