TIGROIDONIA
|
 Posted: Fri Aug 19, 2011 11:16 Post subject: Скрипт для создания шаблона Excel |
 |
|
Есть у меня вот такая кнопочка
| Code: | ' Создает пустой файл в текущем каталоге и открывает его в блокноте
Set WshShell = CreateObject("WScript.Shell")
filename = InputBox("Введите имя нового файла (без расширения)", "Создание нового файла")
If filename <> "" Then
filename = filename & ".txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile(filename, 2, True)
File.Close
WshShell.Run "notepad.exe " & filename, 1, True
End If |
Те при нажатии создает txt файл в активной папке после указания имени. Помогите сделать подобный скрипт для создания excel документа microsoft office 2010, те что при нажатии на кнопку создавался запрос об имени файла, после чего создавался файл формата xlsx в активной папке и соответвенно открывался для изменений. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
