Frage stellen
0

Basic: Derzeitiger Speicherort von Datei

gefragt 2020-06-09 19:12:36 +0100

Herb2000 Gravatar-Bild

updated 2020-06-09 21:10:03 +0100

Hi,

momentan versuche ich mich an Makros und schaffe es bereits mein Dokument in einen vorher eingegebenen Pfad zu exportieren. (mittels DispatchHelper, ExportDirectToPDF usw.)

Ich möchte allerdings erreichen, dass immer in einem Untervezeichnis des Dokumentenstandorts gespeichert wird. Wie komme ich an diesen "CurrentLocation"-Pfad?

LG

Die Frage ist auch nochmal auf English gestellt, da ich nicht wusste wie aktiv hier auf Deutsch geantwortet wird. Vielen Dank für den Hinweis von Opaque

Bearbeiten Tags ändern Melden schließen vereinen löschen

Kommentare

Wenn Du eine Frage mehrfach stellst, wäre es nett, das auch zu erwähnen um Mehrfachaufwand zu vermeiden (https://ask.libreoffice.org/en/question/249267/basic-current-document-path/)

Opaque Gravatar-BildOpaque ( 2020-06-09 20:23:05 +0100 )Bearbeiten

Oh, da habe ich nicht sehr weit gedacht Tut mir leid

Herb2000 Gravatar-BildHerb2000 ( 2020-06-09 21:09:13 +0100 )Bearbeiten

1 Antwort

2

geantwortet 2020-06-09 20:12:00 +0100

Opaque Gravatar-Bild

updated 2020-06-09 23:55:28 +0100

Hallo,

ich lade dazu die Tools Bibliothek (falls sie nicht schon geladen ist)

  if (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) then
    GlobalScope.BasicLibraries.LoadLibrary("Tools")
  end if

und kann dann mit

oDoc = ThisComponent
if oDoc.hasLocation() then

  sDocURL      = oDoc.getURL()
  sDocPath     = DirectoryNameoutofPath(sDocURL, "/")
  sDocName     = GetFileNameWithoutExtension(sDocURL, "/")
  sDocExt      = GetFileNameExtension(sDocURL, "/")

endif

die verschiedenen Parameter einer Datei abfragen. wobei

  dim oDoc         as object   rem aktuelles Docucment
  dim sDocURL      as string   rem vollständiger URL
  dim sDocPath     as string   rem vollständiger Pfad
  dim sDocName     as string   rem Dateiname ohne Extension
  dim sDocExt      as string   rem Datei Extension (.ods, .odt, etc...)

sind.

Ich hoffe, das hilft.

Bearbeiten Melden löschen Link mehr

Kommentare

Danke für die schnelle Hilfe, funktioniert!

Herb2000 Gravatar-BildHerb2000 ( 2020-06-09 21:20:15 +0100 )Bearbeiten
Registrieren oder einloggen, um zu antworten

Antwortwerkzeuge

1 Beobachter

Statistik

Gefragt: 2020-06-09 19:12:36 +0100

Angesehen: 70 Mal

Aktualisiert: Jun 09 '20