Dobrý den,
potřebuji poradit jak mám přepsat makro z Excelu do Calcu jedná se mi o makro, které načte data z z jednoho sešitu a vloží je s jistými upravami do jiného sešitu.
Bohužel nejsem v programování maker v Calcu úplný začátečník takže sic jsem tu narazíl na příspěvěk kopírování mezi soubory - makro, ale bohužel z toho moc nechápu proč se sešit musí otevyrat skrytý a taktéž se mi nedaří pochopit v jakém kroku se sešity přepínají a začně makro pracovat v daném sešitu. Je to sami Dim a Args 
Mé nakro v ecelu je zde:
'Option VBASupport 1
Sub Makro5()
'
' Makro5 Makro
' Makro zaznamenané 28.5.2017, Ja
'
'
ChDir "C:\Documents and Settings\Max\Plocha\export"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Max\Plocha\export\VF_1.xls"
Radek = 2
ActiveSheet.Range("J2").Select
co = ActiveCell.Value
Do Until co = ""
ActiveSheet.Cells(Radek, 2).Select
jmeno = ActiveCell.Value
ActiveSheet.Cells(Radek, 3).Select
prijmeni = ActiveCell.Value
ActiveSheet.Cells(Radek, 1).Select
firma = ActiveCell.Value
ActiveSheet.Cells(Radek, 11).Select
email = ActiveCell.Value
ActiveSheet.Cells(Radek, 12).Select
telefon = ActiveCell.Value
ActiveSheet.Cells(Radek, 9).Select
dobirka = ActiveCell.Value
ActiveSheet.Cells(Radek, 4).Select
hodnota_zasilky = ActiveCell.Value
ActiveSheet.Cells(Radek, 6).Select
id_zasilkovny = ActiveCell.Value
obchod = "Stěstíčko"
If sesit <> 1 Then
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Documents and Settings\Max\Plocha\export\sesit1.csv"
sesit = 1
Else
End If
Windows("sesit1.csv").Activate
Range("A1").Select
ActiveCell.FormulaR1C1 = "verze 2"
ActiveCell.Offset(Radek, 0).Select
bunka = co & "," & jmeno & "," & prijmeni & "," & firma & "," & email & "," & telefon & "," & dobirka & "," & hodnota_zasilky & "," & id_zasilkovny & "," & obchod
ActiveCell.FormulaR1C1 = bunka
Windows("VF_1.xls").Activate
ActiveSheet.Cells(Radek + 1, 10).Select
co = ActiveCell.Value
Radek = Radek + 1
Loop
Radek = Radek - 1
Windows("sesit1.csv").Activate
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("VF_1.xls").Activate
ActiveWorkbook.Close
Windows("export adres.xls").Activate
End Sub
'Option VBASupport 1 je kod který jsem našel kdesi na forech že by tím mělo být umožněno spouštět makro z exelu v calcu. Makro však stejně nefunguje což jak postupně studuji makra v calcu tak se nedivím 
Asi budu schopný vybírat buňky přiřazovat jim proměnné, ale nedaří se makru vysvětlit v jakém sešitě má zrovna pracovat.
Předem díky za pomoc s úpravou kodu.
Max
