OpenOffice.info

Hallo,
funktioniert, vielen Dank!
MfG
Markus

    oLink.URL = Pfad & "#" & "Tabelle2"

Hi Markus,

[code] oLink.URL = Pfad & "#" & "Tabelle2"
[/code]
HTH, Bernd

Sub Main
Dim oDoc As Object   
Dim oSheet As Object   
oDoc = ThisComponent    'Aktives Dokument holen
oSheet = oDoc.currentcontroller.activesheet  'aktives Arbeitsblatt des aktiven Dokumentes holen
Dim Pfad As String
Dim Arbeitsblattname As String
Pfad = oDoc.getUrl
Arbeitsblattname = oSheet.name
MsgBox Pfad & "  " & Arbeitsblattname

Dim oCell As Object
Dim oText As Object
Dim oLink As Object
oCell = oSheet.getCellByPosition(2,4) 
oText = oCell.getText() 
  
oLink = oDoc.createInstance("com.sun.star.text.TextField.URL") 
oLink.URL = Pfad
oLink.Representation = "Linkanzeige" 
'oLink.TargetFrame = Arbeitsblattname

oCell.insertTextContent(oText.createTextCursor(),oLink,True) 

End Sub

Hallo,

ich möchte von einer Zelle in eine andere Calc-Datei auf ein bestimmtes Arbeitsblatt verlinken.
Habe folgenden Code, teilweise aus anderen Forenbeiträgen zusammengestellt:
(Ist noch auf die selbe Datei verlinkt)
[code]
Sub Main
Dim oDoc As Object
Dim oSheet As Object
oDoc = ThisComponent 'Aktives Dokument holen
oSheet = oDoc.currentcontroller.activesheet 'aktives Arbeitsblatt des aktiven Dokumentes holen
Dim Pfad As String
Dim Arbeitsblattname As String
Pfad = oDoc.getUrl
Arbeitsblattname = oSheet.name
MsgBox Pfad & " " & Arbeitsblattname

Dim oCell As Object
Dim oText As Object
Dim oLink As Object
oCell = oSheet.getCellByPosition(2,4)
oText = oCell.getText()

oLink = oDoc.createInstance("com.sun.star.text.TextField.URL")
oLink.URL = Pfad
oLink.Representation = "Linkanzeige"
'oLink.TargetFrame = Arbeitsblattname

oCell.insertTextContent(oText.createTextCursor(),oLink,True)

End Sub
[/code]

Meine Frage: Wie kann man als Sprungziel den Arbeitsblattnamen einstellen?

(Windows XP, OpenOffice 3.3)

MfG
Markus