Форум программистов, компьютерный форум, киберфорум
OpenOffice/LibreOffice
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/25: Рейтинг темы: голосов - 25, средняя оценка - 4.60
3 / 3 / 0
Регистрация: 15.06.2010
Сообщений: 18
1

Конвертация из xls в xlsx при помощи скрипта

11.10.2012, 12:59. Просмотров 4585. Ответов 1
Метки нет (Все метки)


доброго дня.
хочется помощи по поводу перевода vbs скрипта в скрипт для openoffice calc
код ms office
Visual Basic
1
2
3
4
5
6
7
8
9
Set XL = CreateObject("Excel.Application")
XL.Visible = False
 
XL.Workbooks.Open "d:\Name\misha\Price_nc.xls"
XL.ActiveWorkbook.SaveAs "d:\Name\misha\Price_nc.xlsx",6
XL.ActiveWorkbook.Saved = True
 
XL.ActiveWindow.Close(6)
XL.Quit
подскажите как изменить так, что бы открывался файл *.xls и пересохранялся в *.xlsx в openoffice
p.s. отсутствует MS Office, так что надо как то без его использования.
глубочайше буду признателен)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2012, 12:59
Ответы с готовыми решениями:

Конвертация потока c файлом XLS в поток c файлом XLSX
На сервер приходит поток Stream в котором содержится XLS файл. Для работы с Excel используется...

В одной учетной записи не открываются файлы *.doc *.xls (При этом все хорошо с *.docx *.xlsx)
Проблема проявляется только в одной учетной записи. В других эти же самые файлы отлично...

Как получить названия листов из xls файла при помощи ADO в VB?
Как получить названия листов из xls файла при помощи ADO в VB? Какие нужны объекты, свойства и...

xls VS xlsx
Доброго времени суток товарищи! Столкнулся с такой проблемой. Работаю я с Excel файлами через...

1
4 / 4 / 0
Регистрация: 21.09.2012
Сообщений: 23
16.10.2012, 09:12 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
sub ConvertXLStoXLSX
Rem Макрос конвертирует файлы с известными расширениями *.xls в
rem файлы с известными расширениями *.xlsx (по одному за раз)
 
dim urlXls as string ' Переменная пути файла *.xls
dim urlXlsx as string ' Переменная пути файла *.xlsx
dim oFilePicker as object ' Модель диалога открытия файла
dim PropXls(2) as new com.sun.star.beans.PropertyValue
dim PropXlsx(1) as new com.sun.star.beans.PropertyValue
oFilePicker=CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
oFilePicker.AppendFilter("Microsoft Excel 97/2000/XP (.xls)","*.xls")
if oFilePicker.execute() then
    urlXls=oFilePicker.Files(0)
endif
if urlXls="" then
    msgbox "Файл не выбран.",0,"Message."
    exit sub
elseif right(urlXls,3)="xls" then
    urlXlsx=(left(urlXls,len(urlXls)-3)&"xlsx")
else
    msgbox "Выбран неверный файл.",0,"Message."
    exit sub
endif
PropXls(0).name="FilterName"
PropXls(0).value="MS Excel 97" ' Microsoft Excel 97/2000/XP (.xls)
PropXls(1).name="Hidden"
PropXls(1).value=true
PropXls(2).name="ReadOnly"
PropXls(2).value=true
oShDoc=StarDesktop.LoadComponentFromUrl(urlXls,"_blank",0,PropXls())
PropXlsx(0).name="FilterName"
PropXlsx(0).value="Calc MS Excel 2007 XML" ' Microsoft Excel 2007 XML (.xlsx)
PropXlsx(1).name="Overwrite"
PropXlsx(1).value=true
oShDoc.storeAsUrl(urlXlsx,PropXlsx())
oShDoc.close(true)
msgbox "Конвертирование завершено.",0,"Complete."
end sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2012, 09:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Импорт *.xls и *.xlsx
как бы для обоих форматов сделать импорт? Сейчас есть для *.xls: DoCmd.TransferSpreadsheet...

Перекодировка XLS в XLSX
Доброе утро, Нужно было написать скрипт, для перекодировке двух файлов из XLS в XLSX ...

Парсер xls, xlsx файлов
Добрый день, уважаемые форумчане. Я знаю, что интернет забит сплошь и рядом темами по поводу...

Вывод строки при помощи скрипта
На удаленном сервере есть страничка с содержимым: <html> Погода. +5 </html> Подскажите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.