Можно ли изменить параметры страницы при создании на основании шаблона?

Question

[Дмитрий]

Требуется с помощью макроса на основании шаблона создавать много файлов, проблема заключается в том, что создаются файлы со стандартной разметкой страницы, а не той которая в шаблоне, можно это исправить?

Comments

[Akina]

создаются файлы со стандартной разметкой страницы, а не той которая в шаблоне

Ну так и создавайте файлы на основе нужного шаблона, а не стандартного шаблона пустой книги...

Workbooks.Add Template:= "Полный путь к шаблону"

[Дмитрий]

Akina,

Sub Macros()
NewBook = ""
Path = ThisWorkbook.Path
Sheets("Data").Select
For i = 2 To 100000
If Cells(i, 1).Value = "" Then
        i = 100000
    Exit For
End If
Name_file = Path & "\" & Sheets("Data").Cells(i, 1).Value & Sheets("Data").Cells(2, 10).Value & ".xls"
Sheets("Template").Select
    Range("NumberPr").Value = Sheets("Data").Cells(i, 1).Value & Sheets("Data").Cells(2, 10).Value
    Range("Modification").Value = Sheets("Data").Cells(i, 2).Value
    Range("FactoryNumber").Value = Sheets("Data").Cells(i, 3).Value
    Range("Year").Value = Sheets("Data").Cells(i, 4).Value
    Range("Data").Value = Sheets("Data").Cells(i, 5).Value
    Range("Temperature").Value = Sheets("Data").Cells(i, 6).Value
    Range("Pressure").Value = Sheets("Data").Cells(i, 7).Value
    Range("Humidity").Value = Sheets("Data").Cells(i, 8).Value
    Range("Voltage").Value = Sheets("Data").Cells(i, 9).Value
    Cells.Select
    Selection.Copy
    If NewBook = "" Then
        Workbooks.Add
        NewBook = ActiveWorkbook.Name
    Else
        Workbooks(NewBook).Activate
        Cells(1, 1).Select
    End If
    Application.DisplayAlerts = False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
    Name_file, FileFormat:=xlExcel8, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
    NewBook = ActiveWorkbook.Name
    Application.DisplayAlerts = True
    Workbooks("Macros.xlsm").Activate
    Sheets("Data").Select
Next i
Workbooks(NewBook).Close
MsgBox ("Success!")
End Sub

У меня файл эксель в котором два листа. На первом таблица с данными, на втором листе шаблон, на основании которого макрос лепит файлы с данными из таблицы, не до конца понял как мне нужно указать полный путь к шаблону, не могли бы вы помочь?