Makro Excel na OpenOffice

[adsoft91]

Witam,
Czy byłby ktoś w stanie przepisać mi to makro z Excela żeby działało na OpenOffice


Sub ZapiszBezMakr()

ActiveWorkbook.Sheets.Copy ' tworzy kopię skoroszytu - bez makr; ta kopia jest teraz ActiveWorkbook

ActiveWorkbook.SaveAs
Filename = Cells(1, 4) & Cells(1, 2) ' komórka 1,1 = (A1), komórka 1,2 = (B1)
filepath = "C:\Users\a.golebiewski\Desktop\" ' ścieżka dostępu do folderu
ActiveWorkbook.SaveAs Filename:=filepath & Filename
ActiveWorkbook.Close ' zamknięcie kopii
Range("C5:C21").ClearContents
Range("D5:D21").ClearContents
Range("E5:E21").ClearContents

Range("C24:C28").ClearContents
Range("D24:D28").ClearContents
Range("E24:E28").ClearContents

Range("C31:C34").ClearContents
Range("D31:D34").ClearContents
Range("E31:E34").ClearContents

Range("C37:C39").ClearContents
Range("D37:D39").ClearContents
Range("E37:E39").ClearContents
End Sub