Excel Dateien aus Ordner auslesen.. von Stefan vom 04. 05. 2007 22:40:38 AW: Excel Dateien aus Ordner auslesen.. - von Josef Ehrensberger am 04. 2007 23:25:11 AW: Excel Dateien aus Ordner auslesen.. - von Stefan am 05. 2007 00:01:23 AW: Excel Dateien aus Ordner auslesen.. - von fcs am 04. 2007 23:44:46 Betrifft: Excel Dateien aus Ordner auslesen.. von: Stefan Geschrieben am: 04. 2007 22:40:38 Hi zusammen, ich bin Außendiensttechniker und wollte statistisch mal erfassen wie viele Kilometer ich bisher gefahren bin. Ich habe einen Windows Ordner in dem alle meine Spesenabrechnungen sind (alles Excel Arbeitsmappen mit einer Tabelle) in der Tabelle ist Spalte K von 7 bis 17 mit den Kilometern gefüllt. Ich bin also auf der Suche nach einer Funktion die mir die Dateinamen aus dem Ordner holt und wie folgt in ein Excel Tabelle ausgibt: Spalte A - Dateiname Spalte B - gefahrene Kilometer (Summe aus der Tabelle K7 bis K17 aus Dateiname) Wenn ich das händisch machen sollte würde ich dafür zu lange brauchen.
Hierbei ist wichtig, dass das Makro auch Unterordner durchsucht und quasi alle Ebenen einbezieht. 2. Schritt: Ich (also kein Makro) könnte dann neben den ausgelesenen Pfad und ursprünglichen Dateinamen per Excel Formel (links, rechts, länge) die Zeichenkette entfernen und den neuen Dateinamen in die Excelzelle neben den ursprünglichen Namen schreiben. Der neue Name wäre dann in der selben Zeile wie der aktuelle (ursprüngliche Name) und der Dateipfad. 3. Schritt: Das Makro nimmt nun den neuen Dateinamen, sucht per Pfad den ursprünglichen Dateinamen und benennt den Dateinamen um. Nach meiner Theorie wäre dann die Arbeit getan. Da ich ein Laie bin im Bereich VBA Programmierung, wäre ich über eine Hilfestellung sehr dankbar, wie ich das Problem löse und ob mein Vorschlag überhaupt praktisch umzusetzen wäre. Falls der Sachverhalt nicht deutlich ist, stehe ich für Rückfragen gerne zur Verfügung. Vielen Dank vorab Beste Grüße Alexwee:) Hallo Alex, hier ein Code ohne den Umweg über die Tabelle. '
Und da ich mich mit VBA nicht so gut auskenne hoffe ich ganz fest auf eure Hilfe. Danke im voraus!!!! Gruß Stefan Betrifft: AW: Excel Dateien aus Ordner auslesen.. von: Josef Ehrensberger Geschrieben am: 04. 2007 23:25:11 Hallo Stefan, probier mal diesen Code. (Kommentare beachten! ) ' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub Daten_Lesen() Dim strPath As String, strFile As String, strTabName As String Dim lngR As Long strPath = "F:\Temp\km\" 'Verzeichnis anpassen! strTabName = "Tabelle1" 'Name der Tabellenblätter anpassen! strFile = Dir(strPath & "*") lngR = 1 With ( "Tabelle1") 'Name der Ausgabetabelle anpassen! ( "A2:B" &). ClearContents Do Until strFile = "" lngR = lngR + 1 (lngR, 1) = strFile (lngR, 2). Formula = "=SUM('" & strPath & "[" & strFile & "]" & _ strTabName & "'! $K$7:$K$17)" (lngR, 2) = (lngR, 2) strFile = Dir Loop End With End Sub Gruß Sepp Geschrieben am: 05.
Von der Anpassung des Size-Attributs rate ich ab. Jedenfalls, wenn du derartige Sachen direkt über Attribute machen willst, solltest du dich unbedingt mit Klassenprogrammierung beschäftigen. Dazu musst du zunächst ein Klassenmodul erstellen. Dieses legst du dann in deinem Array oder deiner Collection ab. z. B. Set DeinArray(Pos) = New NameDesKlassenmoduls. Besser wäre: New NameDesKlassenmoduls. Das machst du für jede der Dateien. Anschließend kannst du mit Property Get und Property Let Eigenschaftsprozeduren hinzufügen, in denen du durch setzen oder Auslesen einer Eigenschaft kleine Codes ausführen kannst. In diesen Codes kannst du dann je nach Wunsch z. die FolderRename oder die FileCopy Methode des Filesystem-Objekts ausführen (wenn es so eine gibt, hab grad nicht nachgeschaut). Vergiss aber nicht auch den Eigenschaftenwert selbst zu speichern, das machst du in einer eigenen Variable ganz oben im Klassenmodul. Klingt kompliziert, ist es aber nicht, wenn man erstmal den Bogen raus hat.
Hier im Beispiel ist es die Tabelle 2. Fügt man das Makro der Arbeitsmappe zu, müsste man noch festlegen auf welche Tabelle es sich bezieht. Makro in betreffende Tabelle einfügen Nun noch den Verzeichnispfad anpassen, der ausgelesen werden soll, und die Zeile (Variable i) und Spalte ( Buchstabe bei Range [A]) festlegen, bei welcher Zelle begonnen werden soll mit den Eintragungen der Ordnernamen. Ergebnis Ist das alles erledigt, dann kann man das Makro über das grüne Wiedergabe -Symbol im VBA-Editor oder über die " Entwicklertools " ( Alt+F8) im Exceltabellenblatt ausführen. Für das hier gezeigte Beispiel sieht das Ergebnis dann wie im nachfolgenden Bild aus. aufgelistete Ordnernamen in der Exceltabelle Bestseller Nr. 1 Bestseller Nr. 2 Post Views: 8. 129
Den Speicherpfad hatte ich angepasst aber ich wusste nicht, das es nur über den VBA Editor angezeigt wird. Ich versuche es, in meinen Code einzuarbeiten. Ob ich es aber alleine schaffe, kann ich noch nicht sagen. Erst mal probieren und nochmals vielen Dank für deine Hilfe. beste Grüße Foulcrow
Die Straße Dietrich-Bonhoeffer-Straße im Stadtplan Konradsreuth Die Straße "Dietrich-Bonhoeffer-Straße" in Konradsreuth ist der Firmensitz von 1 Unternehmen aus unserer Datenbank. Im Stadtplan sehen Sie die Standorte der Firmen, die an der Straße "Dietrich-Bonhoeffer-Straße" in Konradsreuth ansässig sind. Außerdem finden Sie hier eine Liste aller Firmen inkl. Rufnummer, mit Sitz "Dietrich-Bonhoeffer-Straße" Konradsreuth. Dieses ist zum Beispiel die Firma Albrecht Ralf. Somit ist in der Straße "Dietrich-Bonhoeffer-Straße" die Branche Konradsreuth ansässig. Weitere Straßen aus Konradsreuth, sowie die dort ansässigen Unternehmen finden Sie in unserem Stadtplan für Konradsreuth. Die hier genannten Firmen haben ihren Firmensitz in der Straße "Dietrich-Bonhoeffer-Straße". Firmen in der Nähe von "Dietrich-Bonhoeffer-Straße" in Konradsreuth werden in der Straßenkarte nicht angezeigt. Westlich dietrich bonhoeffer strasser. Straßenregister Konradsreuth:
Dietrich-Bonhoeffer-Str. 9 47877 Willich Ihre gewünschte Verbindung: Ev. Kita Dietrich-Bonhoeffer-Straße 02154 4 99 67 80 Ihre Festnetz-/Mobilnummer * Und so funktioniert es: Geben Sie links Ihre Rufnummer incl. Vorwahl ein und klicken Sie auf "Anrufen". Es wird zunächst eine Verbindung zu Ihrer Rufnummer hergestellt. Dann wird der von Ihnen gewünschte Teilnehmer angerufen. Hinweis: Die Leitung muss natürlich frei sein. Die Dauer des Gratistelefonats ist bei Festnetz zu Festnetz unbegrenzt, für Mobilgespräche auf 20 Min. Dietrich-Bonhoeffer-Straße Neuenhaus - Die Straße Dietrich-Bonhoeffer-Straße im Stadtplan Neuenhaus. limitiert. Sie können diesem Empfänger (s. u. ) eine Mitteilung schicken. Füllen Sie bitte das Formular aus und klicken Sie auf 'Versenden'. Empfänger: null Transaktion über externe Partner