Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание книги (xlsm) по шаблону (xltm) с помощью VBA
 
#1
14.12.2017 17:35:44
Доброго времени...
Просматривал материал в сети, но не нашел, на мой взгляд, самого простого варианта действий.
Требуется при работе в файле, например, "Книга1.xlsm" создать файл "Книга2.xlsm" по шаблону "Шаблон.xltm" с помощью VBA и скопировать из "Книга1.xlsm" в "Книга2.xlsm", какие-либо данные. Для примера - значение какой-нибудь одной ячейки. Подскажите, пожалуйста, какой должна быть самая простая, базовая процедура на VBA.
 
 
 
#2
14.12.2017 17:42:38
Может, как-то так? (рекордер включил)
Код
Sub Макрос1()
' Макрос1 Макрос
    Workbooks.Add Template:= _
        "C:\Program Files (x86)\Microsoft Office\Templates\1049\BillingStatement.xltx"
End Sub

Потом еще можно Activeworkbook.SaveAs добавить...
Кому решение нужно - тот пример и рисует.
 
 
 
#3
14.12.2017 17:55:40
Спасибо.
Буду экспериментировать дальше.
 
 
 
#4
14.12.2017 19:55:53
Вроде видел на просторах инета варианты решений, как не только создавать *xlsm файлы, но и макросы в них с ячеек листа.
 
 
 
#5
15.12.2017 14:06:42
Получился вот такой код:
Код
Sub usCreateFile()
Dim usTemplatePath As String
usTemplatePath = Worksheets("ИМЯЛИСТА").Range("C17")
    On Error Resume Next
    If IsEmpty(Range("C17")) Then
        Msg = "Путь к шаблону не задан"
        MsgBox Msg, , "Сообщение об ошибке"
        Exit Sub
        Else
        Workbooks.Add Template:=usTemplatePath
        If Err.Number = 1004 Then
            Msg = "По указанному пути шаблон не найден"
            MsgBox Msg, , "Сообщение об ошибке"
            Err.Clear
            Exit Sub
        End If
    End If
ActiveWorkbook.SaveAs Filename:="C:\Users\%USERNAME%\Desktop\" & "1" & ".xlsm"
End Sub
Адрес расположения шаблона берет из ячейки и создает соответствующий файл.
Если ячейка пустая или в ней какая-нибудь ерунда кроме адреса, то ни чего не делает и выдает сообщение об ошибке.
Но как теперь выполнить процедуру Activeworkbook.SaveAs ? У меня она не срабатывает до конца.
Выдает только запрос на сохранение.
 
 
 
#6
15.12.2017 14:13:54
Цитата
DmitriyBastr написал:
как теперь выполнить процедуру Activeworkbook.SaveAs ?
Запишите это сохранение макрорекордером - увидите, в чём разница.
 
 
 
#7
15.12.2017 15:10:37
Код
Sub макрос()
    ChDir "C:\Users\%...%\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\%...%\Desktop\Книга1.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
При записи "Сохранить Как" получился такой макрос ↑
Поясните, пожалуйста, какую роль здесь играет ChDir?
 
 
 
#8
15.12.2017 15:12:54
ChDir можно пренебречь. Обратите внимание, что Вы раньше пытались при сохранении Как указывать только имя и расширение файла. А формат не указывали.
 
 
 
#9
15.12.2017 15:16:21
Имеете в виду
Код
FileFormat:=xlOpenXMLWorkbookMacroEnabled
 
 
 
#10
15.12.2017 15:18:21
Да.
 
 
 
#11
15.12.2017 15:19:02
А за что отвечает
Код
CreateBackup:=False
 
 
 
#12
15.12.2017 15:21:00
Я справка или переводчик? ) Не создавать Бэкап файл (резервную копию).
 
 
 
#13
15.12.2017 15:23:55
... но и без этого нормально
 
 
 
Страницы: 1
Читают тему
Наверх