Библиотека конвертации spw в xls

[tsutselola]

День добрый!
Пытаюсь выполнить пакетную конвертацию спецификаций из spw в xls, не могу понять, а какая собственно библиотека за это отвечает?

Код Выделить Развернуть

Dim kconv As KompasAPI7.Converter
Dim kompas As KompasAPI7.IApplication
Set kompas = New KompasAPI7.[_Application]
kompas.HideMessage = ksHideMessageYes
Set kconv = kompas.Converter("D:\KOMPAS\Libs\ImpExp\???????????")
kconv.Convert "C:\Users\User\Desktop\1\1.spw", "C:\Users\User\Desktop\1\1.xls", 3, False


[Nipal]

Сервисные инструменты.

[tsutselola]

Это библиотека komlib, если не ошибаюсь?
.convert возвращает 0 и сконвертированного файла не появляется... Можете подсказать, что не так?

Код Выделить Развернуть

Dim kconv As KompasAPI7.Converter
Dim kompas As KompasAPI7.IApplication
Set kompas = New KompasAPI7.[_Application]
kompas.HideMessage = ksHideMessageYes
Set kconv = kompas.Converter("C:\Program Files\ASCON\KOMPAS-3D v21\Libs\ServiceTools\komlib.rtw")
kconv.Convert ThisWorkbook.Path & "\1.spw", ThisWorkbook.Path & "\1.xls", 3, False


[dimak222]

Уже есть такая тема, такой вариант не подходит?
https://forum.ascon.ru/index.php?topic=28506.msg312323#msg312323

[Nipal]

Вот есть тема, можете по изучать, но КОМПАС-3D v22 пишет, что EXCEL не обнаружен.

Хотя мое приложение, работает без проблем с EXCEL, делал обратный процесс.

[tsutselola]

Как SaveAs все получилось. Интересно было Converter попробовать.
А как тогда rtw подключить к проекту VBA?

[Nipal]

Проще свой сделать.

Как SaveAs все получилось. Интересно было Converter попробовать.
А как тогда rtw подключить к проекту VBA?

Какая версия EXCEL у Вас?

[tsutselola]

2019 х64