Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Создания файла через vba но при создании использовывался шаблон, Создания файла через vba но при создании использовывался шаблон
 
Код
Sub CreatFiles()
    Dim strFilename, strDirname, strPathname, strDefpath As String
    On Error Resume Next ' If directory exist goto next line
    strDirname = "ТЕСТ2" ' New directory name

    strFilename = Intersect(Range("ДДС[Реквизиты]"), ActiveCell.EntireRow).Value 'New file name
    strDefpath = Application.ActiveWorkbook.Path 'Default path name
    If IsEmpty(strDirname) Then Exit Sub
    If IsEmpty(strFilename) Then Exit Sub

    MkDir strDefpath & "\" & strDirname
    strPathname = strDefpath & "\" & strDirname & "\" & strFilename 'create total string
    MsgBox strPathname
    
    
    Workbooks.Add.SaveAs Filename:=strPathname & ".xls", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    
    
End Sub
Привожу код, подскажите:
как сюда вкорячить код который бы отвечал за содания файла через ранее созданный шаблон?
и как сделать что бы файл не открывался сразу

Заранее спасибо
 
В макросах посмотрите комментарии.
Создание файла и сразу его открытие:
Макрос

Создание файла без открытия. У шаблона не должно быть расширение xlt*, иначе будет создан шаблон, а не обычная книга.
Макрос
Изменено: Karataev - 24 Фев 2017 20:04:19
 
Спасибо огромное
Страницы: 1
Читают тему (гостей: 1)
Наверх