API - Datei suchen auch in Unterordner!

Immer wieder nachgefragt - es soll eine Datei in einem bestimmten Ordner samt allen Unterordnern gesucht werden. Mit der API - Funktion "SearchTreeForFile" lässt sich das auf einen Schlag erledigen. Allerdings gibt es Einschränkungen. Platzhalter bzw. Wildcards werden nicht akzeptiert. Es macht auch keinen Sinn das Root-Laufwerk bei großen Platten anzugeben - dann rödelt das bei den heutigen Plattengrößen doch recht lange.

API Datei suchen - Unterordner

Kommentare

Kommentar veröffentlichen

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Bild
Frage: In einer Tabelle habe ich einige Formeln, die ich - aus welchem Grund auch immer - per VBA eintragen möchte. Wie geht das?

Hier noch eine Beispieldatei: Formeln - auch Array - per VBA eintragen...

WICHTIG! In der Formel vorkommende Hochkommata müssen gedoppelt werden - also aus "" wird """"!

Zunächst wird die Zelle mit der Formel markiert.


Dann öffnet man im VBA-Editor das Direktfenster bzw. den Direktbereich (wenn nicht schon geschehen) per STRG+G, gibt folgendes ein (inklusive das Fragezeichen am Anfang) und beendet die Zeile mit Return:


Das gleiche für die Formel in B1:


Dann die Formeln in VBA so nutzen - Arrayformeln werden mit Evaluate direkt in VBA berechnet:


Über "Application.ErrorCheckingOptions.BackgroundChecking" wird verhindert, dass dieses "grüne" Flag mit dem Fehlerhinweis (Zahl als Text) angezeigt wird. Weitere Beispiele folgend und in der Beispieldatei.

OptionExplicit'--------------------------------------------…
Mehr anzeigen

Alle Dateien eines Ordners - Optional mit Unterordner

Frage: Kann mir mal jemand ein Grundgerüst an die Hand geben, mit dem alle Dateien eines Ordners (optional mit Unterordner) berücksichtigt werden.

OptionExplicit' Suchmuster gegebenenfalls anpassen Const strEX AsString = "*.xls*"'-------------------------------------------------------------------------- ' Module : Module1 ' Procedure : Files_Read ' Author : Case (Ralf Stolzenburg) ' Date : 15.10.2012 ' Purpose : Alle Dateien eines Ordners - Optional mit Unterordner... '-------------------------------------------------------------------------- PublicSub Files_Read() Dim stCalc AsIntegerDim strDir AsStringDim objFSO AsObjectDim objDir AsObjectOnErrorGoTo Fin With Application .ScreenUpdating = False .AskToUpdateLinks = False .EnableEvents = False stCalc = .Calculation .Calculation = xlCalculationManual .DisplayAlerts = FalseEndWithSet objFSO = CreateObject("Scripting.FileSys…
Mehr anzeigen

Excel -> Word in Textmarken (Bookmarks)...

Frage: In meiner Exceltabelle habe ich verschiedene Zellen, deren Inhalt in eine bestehende Worddatei mit vorhandenen Textmarken (Bookmarks) eingefügt werden soll. Kann auch ein Bereich als Bild gespeichert werden? Oder auch einfach rüberkopiert werden? Dann noch ein Speicherndialog?

In der gezippten Beispieldatei ist ein Exceldokument und zwei Worddokumente. Die Worddokumente sind identisch - eines nur als Sicherung.

Hier noch eine Beispieldatei: Daten von Excel nach Word in Textmarken (Bookmarks)...

OptionExplicit' Namen der Textmarken im Worddokument Const strBookmark1 AsString = "Name"Const strBookmark2 AsString = "Strasse"Const strBookmark3 AsString = "PLZ"Const strBookmark4 AsString = "Ort"Const strBookmark5 AsString = "Betreff"Const strBookmark6 AsString = "Wertetabelle"Const strBookmark7 AsString = "Wertetabelle1"' Konstante für den Speichern-Unter Dialog in Word Const wdDialogFileSaveAs = 84' Wen…
Mehr anzeigen