Batya
|
 Posted: Fri Aug 19, 2011 12:56 Post subject: |
 |
|
TIGROIDONIA
Особо не заморачиваясь:
| 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", 51
.Visible = True
End With |
У кнопки, запускающей скрипт, параметр "Путь запуска" должен быть пустой.
Добавлено: В качестве параметра можно указать шаблон.
TIGROIDONIA
P.S. При вставке в сообщение форума кусков кода обрамляй их тэгом "code".
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Fri Aug 19, 2011 13:15; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
