Zdravím přátele Open Office.
Ve Visual Basicu jsem vytvářel dokument Excel tak, že jsem si zareferencoval Excel a použil např. takovýto kód, který otevřel šablonu xlt, naplnil daty a uložil jako dokument xls:
Dim oExcel As Excel.Application ' Object
Dim oSesit As Excel.Worksheet ' Object
ps = "C:\InDenT.xlt"
SoubExcel = "C:\NovyDokument.xls"
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add ps
Set oSesit = oExcel.Workbooks.Item(1).Sheets(1)
oSesit.Activate
oSesit.Cells(2, 6).Value = Format(Date, FDATUM)
oSesit.Cells(2, 2).Value = "Skupina : " & NazevSkupiny
oSesit.Cells(3, 2).Value = "Detail: " & NazevDetail
For i = 1 To fgrDenTab.Rows - 1
oSesit.Rows(9 + i).Insert
oSesit.Cells(8 + i, 1).Value = FgR(fgrDenTab, i, 1)
oSesit.Cells(8 + i, 2).Value = FgR(fgrDenTab, i, 2)
oSesit.Cells(8 + i, 3).Value = FgR(fgrDenTab, i, 3)
oSesit.Cells(8 + i, 3).HorizontalAlignment = xlRight
Next i
oExcel.Visible = True
oExcel.Workbooks.Item(1).SaveAs SoubExcel
Na počítači ale musel být nainstalovaný Excel.
Nyní bych na počítači, kde není excel, ale je nainstalován Open Office, potřeboval podobným způsobem vytvořit dokument Calc. Jde to nějakým způsobem ?
Kromě jiného u některých buněk budu potřebovat nastavit barvu podkladu, některé buňky sloučit a změnit výšku některých řádků. Pro Excel jsem syntaxe příkazů zjišťoval tak, že jsem v Excelu zapnul zápis makra, ručně v dokumentu provedl potřebné úkony a pak jsem se do makra podíval na instrukce.
budu vděčen za nakopnutí nebo odkaz na návod jak podobně z programu vytvářet dokument calc.