Привет всем. Прошу помощи.
Кто знает, как с помощью макроса поменять данные одновременно в нескольких книгах (книг больше 100 и открывать каждую слишком долго).
Похожая тема уже обсуждалась на этом же форуме (), но интересует немного другая схема: как заменить не определенную ячейку, а целый лист, скажем я создаю шаблон в каком нибудь файле, со значениями и формулами, а потом с помощью макроса переношу этот лист в другие книги, заменяя этим шаблоном 1 лист в других книгах без изменения названия самого листа.
Есть макрос, который вставляет значения в ячейку в разных книгах:
Кто знает, как с помощью макроса поменять данные одновременно в нескольких книгах (книг больше 100 и открывать каждую слишком долго).
Похожая тема уже обсуждалась на этом же форуме (), но интересует немного другая схема: как заменить не определенную ячейку, а целый лист, скажем я создаю шаблон в каком нибудь файле, со значениями и формулами, а потом с помощью макроса переношу этот лист в другие книги, заменяя этим шаблоном 1 лист в других книгах без изменения названия самого листа.
Есть макрос, который вставляет значения в ячейку в разных книгах:
| Код |
|---|
Sub Макрос1()
Dim FilesToOpen
Dim x As Integer
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xl*), *.xl*", _
MultiSelect:=True, Title:="Выберите файлы")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
Application.Visible = False
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets(1).Range("A1").Value = "New Title" 'на листе 1 в ячейку А1 написать "New Title"
ActiveWorkbook.Close savechanges:=True
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Application.Visible = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
|
Интересует как допилить этот код, чтобы он не "на листе 1 в ячейку A1 написать new title", а заменял целый лист 1.
Заранее огромное спасибо.
Изменено: - 02.07.2017 09:50:04
