Как отредактировать свой шаблон.xlt из книги.xls, созданной на его основе?

[Seve]

Добрый день! Подскажите пожалуйста, как в vba отредактировать шаблон.xlt из книги.xls, созданной по этому шаблону. При попытке использовать функцию открывается новая книга, а не шаблон.

Public Function НовыйПрепарат(НовыйТекст As String)
Dim Wsh As Worksheet, MasterWbk As Workbooks, MasterWsh As Worksheet
Dim i As Integer, СокрТекст As String, ПолныйТекст As String
        
Set Wsh = Worksheets("Препараты")
With Wsh
    For i = 2 To 255
    If .Cells(i, 2).Value = НовыйТекст Then
    Exit For
        ElseIf НовыйТекст <> "" And .Cells(i, 2).Value = "" Then
        If MsgBox("Автозамена для препарата " & НовыйТекст & " не найдена." & _
        Chr(42) & "Продолжить выполнение?", vbQuestion + vbOKCancel + vbDefaultButton1, _
        "Заполнение таблицы препараты") = vbOK Then
                    
                    .Cells(i, 1).Value = i - 2 'первая строка - шапка таблицы и _
                    нумерация препаратов начинается c 0.
                    .Cells(i, 2).Value = НовыйТекст
                    .Cells(i, 3).Value = InputBox("автозамена-название", _
                    "Введите значение параметра автозамена")
                    .Cells(i, 4).Value = InputBox("автозамена-доза", _
                    "Введите значение параметра автозамена")
        
            Application.Workbooks.Open "D:\История\Templates\Назначения.xlt", ReadOnly:=False 'Проблема видимо здесь, но как исправить:(
            Set MasterWbk = Application.Workbooks("Назначения")
            Set MasterWsh = MasterWbk(3)
            MasterWsh.Cells(i, 1).Value = .Cells(i, 1).Value
            MasterWsh.Cells(i, 2).Value = .Cells(i, 2).Value
            MasterWsh.Cells(i, 3).Value = .Cells(i, 3).Value
            MasterWsh.Cells(i, 4).Value = .Cells(i, 4).Value
        
        End If

        Exit For
    End If
    Next
    
    ПолныйТекст = .Cells(i, 3).Value

End With

НовыйПрепарат = ПолныйТекст

End Function

[Aleksandr H.]

не пробовали вместо

Application.Workbooks.Open "D:\История\Templates\Назначения.xlt", ReadOnly:=False 'Проблема видимо здесь, но как исправить:(
            Set MasterWbk = Application.Workbooks("Назначения")

использовать

Set MasterWbk = Application.Workbooks.Add("D:\История\Templates\Назначения.xlt")

?

[Seve]

Спасибо, попробую!

[Seve]

Нет. Выдает ошибку 450. Недопустимое свойство или аргумент.

[Seve]

Прошу извинить, не убрал второй аргумент. Нет. Создает новый файл .xls

[Aleksandr H.]

Пробовал на таком коде, открывается шаблон

Sub OpenTemplate()
    Dim wb As Object
    Dim ws As Object
    Dim XL As Object
    Set XL = CreateObject("Excel.Application")
    XL.Visible = True                            'enables us to see what's happening on debug.
    XL.Workbooks.Add "D:\Назначения.xltm"
    Set wb = XL.ActiveWorkbook                   'the new workbook is referenced by "wb"
    Set ws = wb.Sheets(1)
    With ws
        .Cells(1, 1).Value = Date
        .Cells(1, 2).Value = Now
        .Cells(1, 3).Value = Year(Date)
        .Cells(1, 4).Value = Environ("Username")
    End With
End Sub

[Seve]

В 2003 создает файл xls. Увы
Использовал Ваш код, заменив xltm (выдает ошибку: файл не найден) на xlt.