Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Скрипт для создания шаблона Excel
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Nick



Joined: 26 Dec 2014
Posts: 104

Post (Separately) Posted: Wed Jan 28, 2015 19:23    Post subject: Reply with quote

Skif_off
Я не просто так спрашиваю. Если уже есть готовый скрипт, то его можно было бы и выложить здесь. Дело в том, что некоторые компании сейчас переходят именно на LibreOffice, в отличие, например, от того же KOffice. И далеко не везде в компаниях вообще используют Linux на клиентских компьютерах и сервера на нем.
Back to top
View user's profile Send private message
Skif_off



Joined: 28 Nov 2012
Posts: 1079

Post (Separately) Posted: Wed Jan 28, 2015 22:26    Post subject: Reply with quote

Nick
И я не просто так пишу, и? И Linux тут ни при чём: всё перечисленное пашет на ОС семейства Windows, разве я виноват, что вы не знаете, как поставить KOffice? И ещё Spread32 не упомянул...
Если вы не поняли, что хотел сказать в этой теме, кратко: использование объектов MS Office, по моему скромному мнению, не может быть универсальным решением для создания файлов. И не будет.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12734
Location: Москва

Post (Separately) Posted: Thu Jan 29, 2015 05:00    Post subject: Reply with quote

Skif_off
Справедливости ради, нужно было писать не просто о существующих офисных пакетах или текстовых процессорах (на вскидку могу ещё с пяток другой назвать), а об их связке с прилагаемыми к ним ActiveX для Windows.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Skif_off



Joined: 28 Nov 2012
Posts: 1079

Post (Separately) Posted: Thu Jan 29, 2015 14:20    Post subject: Reply with quote

 2Flasher
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12734
Location: Москва

Post (Separately) Posted: Thu Jan 29, 2015 15:15    Post subject: Reply with quote

2Skif_off
А как копирование шаблонов относится к объектной модели редактора? Мысли тут могут быть разные. И за и против. Перечисление редакторов в дополнение к пожеланию как-то не воспринимается в противном ключе. Т.е. ты против связки? ОК. Тогда в твоём случае всё сводится к банальному копированию файла и к сабжу отношение имеет весьма косвенное.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12734
Location: Москва

Post (Separately) Posted: Fri Mar 11, 2016 04:22    Post subject: Reply with quote

Как-то нашёл простой выход по размеру (1.2 Кб) и разным табличным редакторам для xls. Решил таки выложить:
Code:
'========================== VBS ===========================
' Создать пустой xls-файл в активном каталоге и открыть его
' Условие:  путь запуска должен быть пустым
' Необязательный ключ на открытие: /o    | Автор: Flasher ©
'==========================================================
FN = Trim(InputBox(String(5, vbCr) & "Введите базовое имя файла:",_
Space(23) & "Создание нового XLS-файла", "Новый файл"))
If FN = "" Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
  Dir = .GetAbsolutePathName("") : F = FN
  While .FileExists(FN & ".xls") i = i + 1 : FN = F & " (" & i & ")" : Wend
End With : Name = FN & ".xls"
CreateObject("ADODB.Connection").open "Provider=Microsoft.Jet." & _
"OLEDB.4.0;Data Source=" & Name & ";Extended Properties=Excel 3.0;"
With WScript.Arguments
  If .Count Then If .Item(0) = "/o" Then _
  GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}").document._
  Application.NameSpace(Dir).ParseName(Name).Verbs.Item(0).DoIt
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group