Seite 1 von 1
öffnen einer Datei
Verfasst: Sa, 16.06.2007 14:56
von jrsch
Wie kann man eigentlich per Makro eine Datei öffnen? habe eine function opendocument gefunden, aber kenne die args() nicht.
z.B. Datei: c:\verzeichnis\untergruppe\kalkulation.xls oder ods oder eine andere
Wahrscheinlich ist die Lösung ganz einfach - dann bitte nicht lachen.
Re: öffnen einer Datei
Verfasst: Sa, 16.06.2007 15:02
von sarotti
hallo jrsch,
hier die Lösung:
Code: Alles auswählen
Sub Form_oeffnen
Dim vDoc 'die geladene Komponente
Dim Arg() 'ein leeres Array der Argumenteliste
Dim sURL as String, Sframe As String, lSearch As Long
sUrl = convertToURL("c:\verzeichnis\untergruppe\kalkulation.xls")
vDoc=StarDesktop.loadComponentFromURL (sURL, "_blank", 63, Arg())
end sub
Gruss
sarotti
Re: öffnen einer Datei
Verfasst: Sa, 16.06.2007 15:14
von jrsch
klappt, danke!
Re: öffnen einer Datei
Verfasst: Mo, 18.06.2007 22:13
von Dolphin
und wie kann man überprüfen ob die Datei schon geladen wurde?
Re: öffnen einer Datei
Verfasst: Mo, 18.06.2007 22:48
von komma4
"Component-Walker", und dann die Namen überprüfen.
Code: Alles auswählen
oComponents = StarDesktop.getComponents()
oDocs = oComponents.createEnumeration()
Do While oDocs.hasMoreElements()
oDoc = oDocs.nextElement()
' ...
Loop
Besorge Dir mal
Andrews Makro-Dokumentation
Re: öffnen einer Datei
Verfasst: Mo, 18.06.2007 22:59
von sarotti
Hallo Dolphin,
...oder so:
Code: Alles auswählen
sub Geoeffnete_Fenster_Datei
DIM oFrames as object, oFrame as Object, oURL as Object, i%, sDatei as String
oFrames =StarDesktop.getFrames()
sDatei="c:\test\test.odt" '//gesuchte Datei
For i=1 to oFrames.getCount() '//Schleife durchläuft alle Frames
oFrame=oFrames.getByIndex(i-1)
oURL=oFrame.Controller.getModel()
if UCASE(oURL.Location) = UCASE(convertToURL(sDatei)) then '//Abfrage nach dem Dateinamen
msgBox "Die Datei ''" + sDatei + "'' ist geöffnet"
end if
next
end sub
Gruss
sarotti
Re: öffnen einer Datei
Verfasst: Fr, 03.08.2007 12:52
von CSM2k
Hallo,
ich benutze mal dieses Thema für die Frage:
Ich habe ein Textfeld in einem Formular in dem ein Pfad zu einer Datei angezeigt wird.
Ich möchte, dass der Benutzer durch einen Klick auf einen Button die entsprechende Datei öffnen kann - leider geht es nicht bei "Aktion" der Schaltfläche auf "Datei öffnen" zu klicken, da er ja eine feste URL haben will, ich hingegen das Textfeld durch eine Datenbank immer wieder ändere.
Deswegen wollte ich über ein Makro das ganze erledigen - wie schaffe ich es aber, dass er den Inhalt des Textfeldes benutzt?
Gruß
CSM2k
Re: öffnen einer Datei
Verfasst: Sa, 04.08.2007 18:38
von CSM2k
Danke für die Antwort,
das funktioniert - nur bei Dateinamen mit Umlauten macht es leider Probleme.
Auf jeden Fall Danke!
Gruß
CSM2k