gelöst: Alle Dateien eines Ordners per Makro einlesen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: gelöst: Alle Dateien eines Ordners per Makro einlesen

Re: gelöst: Alle Dateien eines Ordners per Makro einlesen

von komma4 » Di, 06.05.2008 17:06

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

Re: gelöst: Alle Dateien eines Ordners per Makro einlesen

von erikafuchs » Di, 06.05.2008 16:34

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

Re: Alle Dateien eines Ordners per Makro einlesen

von erikafuchs » Di, 06.05.2008 16:27

Lieber Winfried,

perfekt - vielen Dank!

von Pit

Re: Alle Dateien eines Ordners per Makro einlesen

von komma4 » Mo, 05.05.2008 12:20

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?

Re: Alle Dateien eines Ordners per Makro einlesen

von erikafuchs » Mo, 05.05.2008 12:14

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

Re: Alle Dateien eines Ordners per Makro einlesen

von komma4 » Mo, 05.05.2008 11:08

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

Re: Alle Dateien eines Ordners per Makro einlesen

von erikafuchs » So, 04.05.2008 23:04

Lieber Jürgen,

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

So long

Pit

Re: Alle Dateien eines Ordners per Makro einlesen

von turtle47 » So, 04.05.2008 21:56

Hallo Tante Erika :wink:,

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

gelöst: Alle Dateien eines Ordners per Makro einlesen

von erikafuchs » So, 04.05.2008 18:06

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

Nach oben