gelöst: Alle Dateien eines Ordners per Makro einlesen

[erikafuchs]

Hallo zusammen,

ich brauche mal wieder Hilfe:
Ich möchte per Makro aus allen CalcDateien in einem Ordner jeweils ein Blatt in eine neue Tabelle einfügen. Die Dateien haben alle Namen der Form "Rechentrainer_Vorname_Nachname.odt" das können zwischen 20 und 30 Dateien sein. Seht ihr eine Möglichkeit alle Dateien einzulesen ohne die einzelnen Namen und Vornamen vorher einzugeben?

Grüße von
Pit

[turtle47]

Hallo Tante Erika ,

schau dir mal diesen Beitrag an.

In der dort hinterlegten Datei findest Du einen Code der alle Dateien in einem Ordner, in diesem Fall von Writer, der Reihe nach öffnet, eine Aktion durchführt, und das Dokument wieder schließt. Ich denke das dieses schon mal ein guter Ansatz für Dein Vorhaben ist.

Schöne Grüsse.

Jürgen

[erikafuchs]

Lieber Jürgen,

vielen Dank, das sieht doch ganz gut aus! Da werde ich mich dann mal durcharbeiten.

So long

Pit

[komma4]

wenn ich mal anmerken darf:


in der Bibliothek TOOLS findet sich die Funktion READDIRECTORIES(), welche genutzt werden kann. Mit dem folgenden Aufruf werden alle Dateinamen ab dem gegebenen Pfad in einem Array zurück geliefert:

Code: Alles auswählen

' Funktion aus Tools, liefert array von URLs ab dem Basisverzeichnis
aDateien = ReadDirectories(  "d:\" , TRUE , FALSE , FALSE ) 

HTH

[erikafuchs]

Lieber Wilfried,

man lernt immer dazu - Vielen Dank! Mit den eingebauten Makros habe ich noch nie gearbeitet - das sieht aber doch richtig gut aus! Kannst du mir auch noch einen Tip geben, wie ich die Anzahl der Dateien berechne damit ich eine Schleife konstuieren kann?

Grüße
Pit

[komma4]

aDateien ist das Array mit den Dateinamen.

Mit uBound( aDateien ) erhälst Du den oberen Index des Arrays, also:

Code: Alles auswählen

If uBound( aDateien ) > -1 then 
  Anzahl = uBound( aDateien ) + 1 
  print "Anzahl gefundener Dateien: " & Anzahl
  for i = lBound( aDateien ) to uBound( aDateien ) 
  print "bearbeite Datei " & aDateien( i ) 
  ' ...
  next i
End If

Hilft das?

[erikafuchs]

Lieber Winfried,

perfekt - vielen Dank!

von Pit

[erikafuchs]

Lieber Winfried,

eine Frage hätte ich noch: Um auf die Funktion in den Tools zugreifen zu müssen, muss ich den Tools Ordner einmal aufmachen - das geht doch sicher auch einfacher?

Noch´n Dank
Pit

[komma4]

Ja: Bibliotheken, deren Funktionen genutzt werden sollen, müssen geladen werden.

Code: Alles auswählen

If _
 ( Not GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) ) _
 Then
  GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
End If