A je to. Díky moc hlavně " rejze".
Jenom pro úplnost a přehlednost uvádím celý kod:
Sub uloz_protokol
Dim bunka_nazev as object,document as object
Dim nazev as string
Sheets = ThisComponent.Sheets
Sheet = Sheets.getByIndex(0)
bunka_nazev = sheet.GetCellByPosition (6,11) rem pro buňku G12, buňky jsou číslovány od O ne od 1
nazev = trim(bunka_nazev.string)
uloz_novy_sesit ("C:\( vlož celou cestu ).xls")
zavri
otevrit("C:\( vlož celou cestu ).ots")
end sub
Sub uloz_novy_sesit (optional cesta as string)
dim oDoc as object
on error goto chyba
oDoc=ThisComponent
with oDoc
if (not .hasLocation) or .isReadOnly then' pokud jeste nebyl ulozen, nebo je jen pro cteni
.storeAsURL(ConvertToURL(cesta), Array()) ' ulozit jako
else
.store() ' ulozit
end if
end with
exit sub
chyba:
msgbox("chyba!!!",0,"Chyba uloz_novy_sesit")
stop
end sub
sub zavri
dim oDoc as object
oDoc=ThisComponent
oDoc.Close(true)
end sub
Sub otevrit(optional cesta as string)
Dim oArgs(2) As New com.sun.star.beans.PropertyValue
Dim oDoc
oFileName = cesta
oURL = ConvertToUrl(oFileName)
oArgs(0).Name="AsTemplate"
oArgs(0).Value= true
oArgs(1).Name="TemplateName"
oArgs(1).Value = "oCalc_template"
oArgs(2).Name="TemplateRegionName"
oArgs(2).Value= "oCalcTemplateRegion"
oDoc = StarDesktop.LoadComponentFromUrl(oURL, "_blank", 0, oArgs())
Dim oGArgs
Dim oDocArgs$ as String
Dim i%
On Error Resume Next
oGArgs = oDoc.getArgs()
for i = 0 to UBound(oGArgs)
oDocArgs = oDocArgs & oGArgs(i).Name & " = "
oDocArgs = oDocArgs & oGArgs(i).Value
oDocArgs = oDocArgs & Chr$(10)
next i
End Sub
((