Excel makró futási probléma Openoffice alkalmazás alatt

[VDénes]

Jó napot!

Új témát indítok, ahogyan javasolta.
Az alábbi kód nem működik.
A Libre Office már jobb, mert legalább ír hibaüzenetet.
Hiba történt a BASIC-program futása közben. '91' Az objektumváltozó nincs beállítva. A 425-ös sorra mutat.
Vagy akkora a méret, hogy egyszerűbb másikat csinálni?

A fájl sajnos olyan nagy méretű, hogy azt nem tudom csatolni.
Köszönöm szépen előre is!

[Zizi64]

A fájl sajnos olyan nagy méretű, hogy azt nem tudom csatolni.

De akkor én meg nem tudom próbálni. A nagy méretű fájlokat ingyenes fájlmegosztókról ide linkelve tudod megosztani.

[Zizi64]

Legalább a szubrutin, vagy eljárás nevét mondd meg - ahol a hiba jelentkezett -, mert Writerbe bemásolva a sorok száma nem biztos, hogy ugyanaz maradt, mint amennyi a kódszerkesztőben volt.

[Zizi64]

Hiba történt a BASIC-program futása közben. '91' Az objektumváltozó nincs beállítva.

Nos, visszamásoltam egy Modulba a LO makrószerkesztőjébe a kódot, és ott a 425. sor ez:

Kód: Egész kijelölése   KinyitásÖsszecsukás

ActiveSheet.Shapes.AddShape(msoShapeDiamond, z_xk, z_yk, z_x, z_y). _
                Select

Itt valóban az a helyzet - ahogy a hibaüzenet írja -, hogy a msoShapeDiamond változónak sehol nincs megadva az értéke. Mi az? Egy karakter egy speciális karakterkészletből, vagy valami grafikus objektum? Lehet, hogy az MS VBA-ban ez egy máshol (globálisan) megadott változó, de itt senki és semmi nem adott neki se típust, se értéket.

[VDénes]

http://s1.toldacuccot.hu/letoltes?sid=c2787297b12f60ee371c726b88777d96&file=oszl_m%C3%A9retez_85_vista.xlsm

Elnézést nem voltam eddig gépközelben.
Ez lenne a teljes fájl.

Nagyon szépen köszönöm. Nem gondoltam ilyen gyorsan lesz válasz.

[Zizi64]

Letöltöttem a fájlodat és megnyitottam LibreOffice 6.1.4-gyel. Nem látok egyetlen olyan kezelőszervet sem a munkalapokon, amikre a makrók hivatkoznak. Se gombot, se rádió (option)-gombot, se checkboxot - semmit. Ha az IDE felületről futtatom a Rajzolas makró rutint, akkor a 424-es sorban áll meg:

Kód: Egész kijelölése   KinyitásÖsszecsukás

If OptionButton10.Value = False Then 'zöld_mez?

De ugyebár OptionButton10 se látszik a munkalapokon sem, és a Navigátorban sem, emiatt a hivatkozás "lóg a levegőben".

Minek a határása indulna nálad például ez a "Rajzolas" makró, és mit rajzolna (hová?)

A fő problémához mérten apróság, hogy a KÖF.O14 cellában =ISERROR() függvény van, ami nem létezik az AOO-ban, de a LibreOffice-ban létezik. "Kiváltani" az =IF(ISERROR()) függvénypárral lehet az esetek többségében.

[VDénes]

http://s4.toldacuccot.hu/letoltes?sid=a424b24c68ab6a0f9005da50a864ed9f&file=oszl_m%C3%A9retez_85_vista.xlsm

Felteszek egy régit. Ezt én rontottam el. Mert alakítottam rajta és nem jót küldtem el.

Elnézést!

[Zizi64]

Erre meg azt mondja a böngészőm és a vírusirtóm, hogy fertőzött fájl, és nem engedi letölteni. Be kéne csomagolnod zip-be, (vagy egyszerűen átnevezni .zip-re), akkor talán letölthető lesz.

Több böngészővel is próbáltam, a vírusirtóm Avast.

[Zizi64]

Vagy küldjed mailben. Itteni üzenetben elküldöm az emailcímemet.

[VDénes]

Nagyon szépen köszönöm. Elküldtem.
Nagyon restellem, hogy rajtam kifog ez...

[Zizi64]

Megjöttek a fájlok a sűrítményben.

A "csupasz_belogas.xls" több helyen egy Add-in komponensre hivatkozik, ami a LibreOffice-omban nincs meg. Ez lehet egy általános Add-in, ami alapból része az Excelnek, de lehet egy speciális, csak azon a gépen telepített Add-in is. Enélkül az a fájl nem képes működni AOO-ban, LO-ban.

[VDénes]

Valószínű Excel sajátja lehet. Mert más gépeken is működött eddig csak Microsoft Officeban.

[Zizi64]

Mindhárom fájlt megnézve arra jutottam, hogy ez igen csak nagy munka lesz, mire hiba nélküli működésre bírja valaki.
Azaz:
- teljesen újra kell írni a makrókat;
- amit lehet, át kell helyezni "Stílus alapra", (és nem egyenként állítgatni a minden egyes elem tulajdonságait, hanem megnevezni egy - a sablonban már előkészített - stílust, és ráhúzni az adott objektumra).
- ki kell deríteni, hogy mi az az Add-in, ami hiányzik. Ingyenesen eléhető-e, és kompatibilissé tehető-e a LO-szal, vagy létezik-e kiváltó Add-in, - ha nincs, akkor meg kell írni.
- el kell dönteni, hogy AOO vagy LO alapon akarod-e folytatni a fejlesztést - mert annyi ideje váltak már szét, hogy egyre jelentősebb különbségek lesznek a két programcsomag között. Az AOO fejlesztése rendkívül lassú napjainkban, a Win10-en kompatibilitási/stabilitási problémák vannak - legalábbis az angol nyelvű fórum új témáiban előforduló panaszkodások alapján ez szűrhető le. Úgyhogy jómagam mindenképpen a LibreOffice-t javaslom, de ha "gyorsan" működőképesnek kell ennek a méretező alkalmazásnak, akkor leggyorsabb venni egy MS Office-t.

[VDénes]

Köszönöm szépen!
Valószínű akkor az Office beszerzése marad most egyenlőre. Csak ez a havidíjas dolog nem tetszik, hogy már csak bérelni lehet. De ez van most egyenlőre.
Az OpenOffice-t egyetemi éveim alatt nagyon sokat használtam és azt gondoltam nem lesz gond.
Ahogyan lesz időm biztosan újra lesznek írva ezek a programok, mivel az előírások úgyis változnak.

Köszönöm mégegyszer a segítséget!

Minden jót kívánok!

[Zizi64]

Valószínű Excel sajátja lehet. Mert más gépeken is működött eddig csak Microsoft Officeban.

Mivel a munkalap jelszóval védett, még az adott, "#ADDIN?" hibaüzenetet tartalmazó cellát se tudom megnézni, hogy milyen függvénynevet tartalmaz, amit aztán persze nem tud elérni. A függvénynévből lehetne következtetni az Add-in mibenlétére; nevére, elérhetőségére.