| View previous topic :: View next topic |
| Author |
Message |
Nick
Joined: 26 Dec 2014
Posts: 107
|
 (Separately) Posted: Wed Jan 28, 2015 19:23 Post subject: |
 |
|
Skif_off
Я не просто так спрашиваю. Если уже есть готовый скрипт, то его можно было бы и выложить здесь. Дело в том, что некоторые компании сейчас переходят именно на LibreOffice, в отличие, например, от того же KOffice. И далеко не везде в компаниях вообще используют Linux на клиентских компьютерах и сервера на нем. |
|
| Back to top |
|
 |
Skif_off
Joined: 28 Nov 2012
Posts: 1232
|
| (Separately) Posted: Wed Jan 28, 2015 22:26 Post subject: |
|
|
Nick
И я не просто так пишу, и? И Linux тут ни при чём: всё перечисленное пашет на ОС семейства Windows, разве я виноват, что вы не знаете, как поставить KOffice? И ещё Spread32 не упомянул...
Если вы не поняли, что хотел сказать в этой теме, кратко: использование объектов MS Office, по моему скромному мнению, не может быть универсальным решением для создания файлов. И не будет. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jan 29, 2015 05:00 Post subject: |
|
|
Skif_off
Справедливости ради, нужно было писать не просто о существующих офисных пакетах или текстовых процессорах (на вскидку могу ещё с пяток другой назвать), а об их связке с прилагаемыми к ним ActiveX для Windows.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Skif_off
Joined: 28 Nov 2012
Posts: 1232
|
| (Separately) Posted: Thu Jan 29, 2015 14:20 Post subject: |
|
|
 2Flasher Если справедливости ради, то с самого начала о связке с ActiveX и говорю, и не совсем понимаю, почему подтверждающий мысль список вызвал несколько неожиданную реакцию  |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jan 29, 2015 15:15 Post subject: |
|
|
2Skif_off
А как копирование шаблонов относится к объектной модели редактора? Мысли тут могут быть разные. И за и против. Перечисление редакторов в дополнение к пожеланию как-то не воспринимается в противном ключе. Т.е. ты против связки? ОК. Тогда в твоём случае всё сводится к банальному копированию файла и к сабжу отношение имеет весьма косвенное.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Mar 11, 2016 04:22 Post subject: |
|
|
Как-то нашёл простой выход по размеру (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 |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
