Hello
I have to translate EXCEL VBA Macro in OOBasic
how can I translate this piece of code?
This code use a COM object.
Thanks for replying
Dim TKSession, TKBasket, TKError, TKArchive
Dim running
Dim strBasket, strArchive, strFileName, strActiveArchive,
strDocumentAImporter, strIndex, strDate, strStatut
Set TKSession = CreateObject("DW5ToolKit.App")
TKError = TKSession.IsDocuWareRunning(running)
If running = 0 Then
TKError = TKSession.StartDocuWare("admin", "admin", 10)
End If
TKError = TKError + TKSession.getbasket(strBasket, TKBasket)
TKError = TKError + TKSession.GetArchive(ADFFileArchive, TKArchive)
--
View this message in context:
http://nabble.documentfoundation.org/Using-an-equivalent-to-CreateObject-in-VBA-tp3913286p3913286.html
Sent from the Dev mailing list archive at Nabble.com.
_______________________________________________
LibreOffice mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice
