TIGROIDONIA
|
 Posted: Wed Nov 23, 2011 07:33 Post subject: |
 |
|
Друзья, снова прошу о помощи, всвязи с усовершенствованием файла шаблона и включением в него макросов теперь мне требуется все тоже самое, но с сохранением шаблона с поддержкой макросов, те с расширением xlsm, как я понимаю процедура SaveAs должна иметь какой-то другой вид?
В настоящий момент пользуюсь этим кодом успешно, прошу подправить для использования файлов с макросами для Excel 2010
| Code: | 'Создает пустой xlsx-файл в текущем каталоге и открывает его
File = InputBox("Введите имя нового файла (без расширения)", "Создание нового xlsx-файла", "Новый файл")
If File = "" Then WScript.Quit
If WScript.Arguments.Count > 0 Then Template = WScript.Arguments(0) Else Template = ""
With CreateObject("Excel.Application")
.Workbooks.Add Template
.Application.ActiveWorkBook.SaveAs CreateObject("WScript.Shell").CurrentDirectory & "\" & File & ".xlsx"
.Visible = True
End With |
[/quote]
Добавлено спустя 48 минут:
Эх, не выдержал и нашел решение сам, если кому надо, то добавить параметр 52 | Code: |
.Application.ActiveWorkBook.SaveAs CreateObject("WScript.Shell").CurrentDirectory & "\" & File & ".xlsm", 52 |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
