Acronis
Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 Re: Calc » Převod makra z Excelu do Calcu? » 11. 3. 2016 13:52:45

A nemohl by to někdo napsat do fungujícího dokumentu a uploadnout sem prosím? Mně to neustále hlásí chybu totiž.

#2 Re: Calc » Převod makra z Excelu do Calcu? » 8. 3. 2016 20:53:15

Já jsem zkoušel konvertor, ale neúspěšně. Studoval jsem také syntaxi OpenOffice, ale nešlo mi toto makro přeprogramovat. Měl bych v rámci školního projektu vytvořit makro pracující s ODF či XML formátem, ale nic mě nenapadlo, kromě tohoto. Bohužel to i přes svou snahu neovládám.

#3 Calc » Převod makra z Excelu do Calcu? » 8. 3. 2016 14:14:32

FilipDavid
Odpovědí: 21

Dobrý den,

mám makro napsané v Excelu a chtěl bych se zeptat, zda je možné toto makro převést do Calcu v OpenOffice? Programovat vůbec nezvládám a tak se obracím s prosbou na Vás. Nemáte nějaké tipy jak na to? Předem děkuji za odpověď.

Sub ares()

Application.ScreenUpdating = False 'potlačí obnovování obrazovky
Application.DisplayAlerts = False 'potlačí varovné hlášky

'vloží nový list na konec se jménem ares
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "ares"

Sheets("ares").Activate 'přesun na tento nový list
'XML dotaz do ARESU s tím, že ičo máme na první listu v buňce C2 a importovná data chceme vložit do buňky A1
ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=" & Sheets(1).Range("C2").Value, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

Sheets(1).Activate 'přesun zpět na první list

'přenesení údajů z pomocného listu do kolonek formuláře
Sheets(1).Range("C4") = Sheets("ares").Range("AJ3") 'přenesení názvu firmy
Sheets(1).Range("C6") = Sheets("ares").Range("DA3") 'přenesení ulice
Sheets(1).Range("C8") = Sheets("ares").Range("CW3") 'přenesení města
Sheets(1).Range("C10") = Sheets("ares").Range("DF3") 'přenesení PSč

Sheets("ares").Delete 'smazání pomocného listu

Application.ScreenUpdating = True 'zapne obnovování obrazovky
Application.DisplayAlerts = FaTruelse 'obnoví varovné hlášky

End Sub

Zápatí

Používáme FluxBB