Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: VB (VS2008) и Openoffice3 связь Добавлено: 20.12.08 02:17  

Автор вопроса:  Dim22
Господа. Кто-нибудь знает как осуществить связь с OpenOffice3 из VB NET, т.е. какие Add Reference добавить в проект, какие Imports сделать, какой текст написать. Т.е кто может выложить конкретный работоспособный листинг на VB Net, к примеру, чтобы эта программка связывалась с Writer, открывала там документ, напечатала два слова и сохранила его.
Я понимаю, что с Word можно элементарно просто связаться и делай что хочешь, что OpenOffice по мнению некоторых участников форума "отстой", но тем не менее помогите, пожалуйста.

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 el-paso



Вопросов: 3
Ответов: 164
  Профиль | | #1 Добавлено: 20.12.08 13:06
http://wiki.services.openoffice.org/wiki/VBA#How_to_enable_the_VBA_model

Это ссылка на официальный wiki-ресурс от OpenOffice.org.
В самом низу страницы есть раздел Visual Basic. Там же есть ссылка на CHM-файл с подробной описаловкой OO-классов.

Ессесно, умение читать и понимать английский - это ключ к успеху..

Ответить

Номер ответа: 2
Автор ответа:
 Dim22



Вопросов: 5
Ответов: 16
  Профиль | | #2 Добавлено: 21.12.08 20:46
Спасибо,
  1. Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
  2. Dim r As Object
  3. Dim cell As Object
  4. Dim ooApp As Object
  5. Dim v As Object
  6.         'Dim oCalcDoc As Object
  7. Dim oDesktop As Object
  8. Dim oServiceManager As Object
  9. oServiceManager = CreateObject("com.sun.star.ServiceManager")
  10. 'UPGRADE_WARNING: Couldn't resolve default property of object oServiceManager.createInstance. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  11. oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
  12.         '''Dim aNoArgs As Object
  13. 'UPGRADE_WARNING: Couldn't resolve default property of object oDesktop.loadComponentFromURL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  14.         ' oCalcDoc = oDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, 0) ''', aNoArgs)

  16. 'UPGRADE_WARNING: Couldn't resolve default property of object oServiceManager.DefaultContext. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  17. v = oServiceManager.DefaultContext.getValueByName("/singletons/org.openoffice.vba.theGlobals")
  18. 'UPGRADE_WARNING: Couldn't resolve default property of object v.Application. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  19. ooApp = v.Application
  20. 'UPGRADE_WARNING: Couldn't resolve default property of object ooApp.Version. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  21. MsgBox(ooApp.Version)
  22. 'UPGRADE_WARNING: Couldn't resolve default property of object ooApp.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  23. cell = ooApp.ActiveCell
  24. 'UPGRADE_WARNING: Couldn't resolve default property of object cell.Value. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  25. cell.Value = "Hello!"
  26. 'UPGRADE_WARNING: Couldn't resolve default property of object ooApp.Range. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  27. r = ooApp.Range("B1", "B1")
  28. 'UPGRADE_WARNING: Couldn't resolve default property of object r.Value. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
  29. r.Value = "Hi1"

  31. End Sub

данная ссылка, правда написана для VB6, но я ее импортировал в студию VB express VS2008 и сработала, правда две строчки пришлось закомментировать ('''), т.к. не компилировались. Из-за этого вручную открывать OpenOffice.Calc.
Господа, у кого есть еще какие-нибудь ссылочки (для VB VS2008, не для VB6 или С++ и т.д., а именно для VB VS2008). А лучше живой примерчик.
Спасибо.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам