OpenOffice.info

Sorry das war mein Fehler ich stelle die Anfrage nochmals in Basic ein, bitte diesen Beitrag hier löschen. Danke

Für Calc(?) vielleicht besser im dortigen Forumsteil suchen!

Sub oeffne_EDV_orga

Dim oDoc as Object
Dim Filepath as String
Dim DirPath as String
Dim DirPath_1 as String
Dim OpenFile as String
Dim ButtonName as String
   GlobalScope.BasicLibraries.LoadLibrary("Tools")
   odoc = thiscomponent
   check = odoc.haslocation()
   if check = true then 'Prüfen ob die Datei einen Dateinamen hat
   Filepath = oDoc.URL
   DirPath = convertfromURL(Filepath)
   DirPath_1 = DirectoryNameoutofPath(DirPath,GetPathSeparator())
   ButtonName = ActiveSheet.Shapes(Application.Caller).DrawingObject.Characters.Text 
   MsgBox ButtonName
   Dim NewWorkbook as Object
   Dim NoArgs()
   OpenFile = ConvertToURL(DirPath_1 & "//Dateilisten/edv_orga.ods")
   MsgBox Filepath & CHR(13) & CHR(13) & DirPath & CHR(13)& CHR(13) & DirPath_1 & CHR(13) & CHR(13) & OpenFile
   NewWorkbook = StarDesktop.loadComponentFromURL(OpenFile,"_blank",0 ,NoArgs())
   else MsgBox "Das Dokument hat noch keinen Dateinamen!"
   end if  
End Sub

Hallo,

ich habe eine Schaltfläche in einem Tabellenblatt eingebaut, der immer das selbe tun soll, nämlich ein weiteres Calc-Dokument öffnen, das funktioniert soweit auch ganz gut

[code]
Sub oeffne_EDV_orga

Dim oDoc as Object
Dim Filepath as String
Dim DirPath as String
Dim DirPath_1 as String
Dim OpenFile as String
Dim ButtonName as String
GlobalScope.BasicLibraries.LoadLibrary("Tools")
odoc = thiscomponent
check = odoc.haslocation()
if check = true then 'Prüfen ob die Datei einen Dateinamen hat
Filepath = oDoc.URL
DirPath = convertfromURL(Filepath)
DirPath_1 = DirectoryNameoutofPath(DirPath,GetPathSeparator())
ButtonName = ActiveSheet.Shapes(Application.Caller).DrawingObject.Characters.Text
MsgBox ButtonName
Dim NewWorkbook as Object
Dim NoArgs()
OpenFile = ConvertToURL(DirPath_1 & "//Dateilisten/edv_orga.ods")
MsgBox Filepath & CHR(13) & CHR(13) & DirPath & CHR(13)& CHR(13) & DirPath_1 & CHR(13) & CHR(13) & OpenFile
NewWorkbook = StarDesktop.loadComponentFromURL(OpenFile,"_blank",0 ,NoArgs())
else MsgBox "Das Dokument hat noch keinen Dateinamen!"
end if
End Sub
[/code]

Ich möchte jedoch den Code für viele Buttons nutzen um für unterschiedliche Abteilungen jeweils eine Datei zu öffnen. Das bedeutet, dass der Dateiname aus dem Anzeigename des Buttons ausgelesen werden soll. in der Programmzeile Buttonname= ..., habe ich schon mal versucht mit einem hier veröffentlichten Thema etwas hinzbekommen, jedoch funktioniert das nicht.

Ich hoffe jemand kann mir weiterhelfen

Grüße holdrio76