Друзья, снова прошу о помощи, всвязи с усовершенствованием файла шаблона и включением в него макросов теперь мне требуется все тоже самое, но с сохранением шаблона с поддержкой макросов, те с расширением xlsm, как я понимаю процедура SaveAs должна иметь какой-то другой вид?
В настоящий момент ...
Найдено 8 результатов
- Ср ноя 23, 2011 07:33
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
- Сб авг 20, 2011 04:22
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
- Пт авг 19, 2011 17:47
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
- Пт авг 19, 2011 15:01
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
- Пт авг 19, 2011 14:18
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
- Пт авг 19, 2011 13:14
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
- Пт авг 19, 2011 12:41
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
да в новом excel, задача такая - я с помощью total commander открываю нужую мне директорию и требуется, чтобы после нажатия кнопки в этой директории создавался файл excel с именем, которое вводится при запросе после нажатия.
В директории создается файл name.xlsx и открывается в excel. но в идеале ...
В директории создается файл name.xlsx и открывается в excel. но в идеале ...
- Пт авг 19, 2011 11:16
- Форум: Автоматизация Total Commander
- Тема: Скрипт для создания шаблона Excel
- Ответы: 35
- Просмотры: 79434
Скрипт для создания шаблона Excel
Есть у меня вот такая кнопочка
' Создает пустой файл в текущем каталоге и открывает его в блокноте
Set WshShell = CreateObject("WScript.Shell")
filename = InputBox("Введите имя нового файла (без расширения)", "Создание нового файла")
If filename <> "" Then
filename = filename & ".txt"
Set FSO ...
' Создает пустой файл в текущем каталоге и открывает его в блокноте
Set WshShell = CreateObject("WScript.Shell")
filename = InputBox("Введите имя нового файла (без расширения)", "Создание нового файла")
If filename <> "" Then
filename = filename & ".txt"
Set FSO ...