öffnen einer Datei

[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.

[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

[jrsch]

klappt, danke!

[Dolphin]

und wie kann man überprüfen ob die Datei schon geladen wurde?

[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

[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

[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

[CSM2k]

Danke für die Antwort,

das funktioniert - nur bei Dateinamen mit Umlauten macht es leider Probleme.

Auf jeden Fall Danke!

Gruß
CSM2k