mnohokrate dekuji, ovsem moc mi to nepomohlo..
potrebuji to mit funkcni pro jakoukoliv jazykovou mutaci excelu a OOo...
v OOo v3.0.0 dokonce funguje i ! jako oddelovac listu, ale v excelu (cz) nepobere hyperlink
jeste bych mel dotaz, neslo by to vyresit pres formularove tlacitko a makro??? je mi v podstate jedno, jeslty bude odkaz v bunce jako funkce, nebo to bude pres makro...
ale tady jsem opet narazil na problem zkusil jsem:
Sub otevri_list()
Sheets("List1").Select
End Sub
v execelu ok, OOo nikoliv...
v OOo jsem dal zaznam makra, prepnuti na druhy list a vzniklo toto:
Rem ***** BASIC *****
Sub Main()
End Sub
Sub test()
Rem ----------------------------------------------------------------------
Rem define variables
Dim document As Object
Dim dispatcher As Object
Rem ----------------------------------------------------------------------
Rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Rem ----------------------------------------------------------------------
Dim args1(0) As New com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 3
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
End Sub
z cehoz nejsem vuubec moudry..
poradil by prosim nekdo?
diiky za snahu!