Erstellen eines Verzeichnisses in einem Makro (Microsoft Excel)
Bei Bedarf können Sie mit VBA ein Festplattenverzeichnis (Ordner) erstellen. Dies erfolgt mit dem Befehl MkDir und ist ein Rest desselben Befehls in früheren Versionen von BASIC. Die Syntax lautet:
MkDir DirName
Dabei ist DirName der vollständige Pfadname des Verzeichnisses, das Sie erstellen möchten. Wenn Sie keine Zeichenfolgenvariable verwenden, um den Verzeichnisnamen anzugeben, muss DirName in Anführungszeichen gesetzt werden. Wenn Sie in DirName keinen vollständigen Pfadnamen angeben (möglicherweise geben Sie nur einen einfachen Namen wie „TempFiles“ oder „MyDirectory“ an), wird das Verzeichnis im aktuellen Verzeichnis erstellt. Wenn Sie schließlich versuchen, ein bereits vorhandenes Verzeichnis zu erstellen, generiert VBA einen Fehler.
Es gibt ein potenzielles Problem, das Sie beachten müssen: Sie können nicht mehrere Verzeichnisebenen auf einmal erstellen. Angenommen, Sie haben ein vorhandenes Verzeichnis mit dem Namen „Budget“ auf dem Laufwerk C: und versuchen, Folgendes zu erstellen:
sTemp = "C:\Budget\2019\First Quarter" MkDir sTemp
Möglicherweise wird eine Fehlermeldung angezeigt, wenn das Verzeichnis 2019 noch nicht im Budgetverzeichnis vorhanden ist. Um einen solchen Fehler zu vermeiden, müssen Sie jede Verzeichnisebene explizit wie folgt erstellen:
sTemp = "C:\Budget\2019" MkDir sTemp sTemp = sTemp & "\First Quarter" MkDir sTemp
Warum sollten Sie ein Verzeichnis in Ihrem Makro erstellen? Ein häufiger Grund besteht darin, einen Ort zu erstellen, an dem Sie temporäre Dateien, mit denen Sie arbeiten, im Rest des Makros speichern können.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (8851) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: