Ahoj, níže mám skriptík psaný v Basic Scriptu (softwaru třetí strany), úplně na konci zaremované getCellByPosition(1, 1) mi funguje bezproblému. Problém nastane, když chci uložit pole pomocí setDataArray. Hlásí, že konverze není možná, už jsem zkoušel do arraye vkládat stringy, longy, hledal jsem na cizích fórech, opravdu už nemám řešení, jak to vyřešit. Díky moc za tipy.
'__error_________________________________________________________________________________________________
[automation bridge]com.sun.star.script.CannotConvertException in UnoConversionUtilities<T>::variantToAny! Message: conversion not possible!
'_skriptík ______________________________________________________________________________________
Dim oSM, oCR, oDesk, oDoc, oSh, oCell, s, sPath, sFilePath, bDone, Oblast, Pole, args(), arg()
sPath = Pm.DiscGetPath("app:Excel/")
s = Pm.StringReplace(sPath, "\", "/")
sFilePath = s & sFileName & ".ods"
'The service manager is always the starting point
'If there is no office running then an office is started up
Set oSM = Pm.AxGetObject("new", "com.sun.star.ServiceManager")
'Create the CoreReflection service that is later used to create structs
Set oCR = oSM.createInstance("com.sun.star.reflection.CoreReflection")
'Create the Desktop
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
'Open a new empty calc document
Set oDoc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
'Create a sheet object
Set oSh = oDoc.getSheets()
Set oSheet = oSh.GetByIndex(0)
Pole = Array(0,1,2,3)
Oblast = oSheet.getCellRangeByName("A1:A4").setDataArray(Pole)
'níže zaremované mi funguje bezproblému
'oSheet.getCellByPosition(1, 1).Value = 222
'uložení
bDone = oDoc.storeAsURL("file:///" & sFilePath, arg)
