Wie verwende ich CreateObject Scripting?FileSystemObject in Excel VBA: Eine vollständige Anleitung

Scripting.FileSystemObject es ist ein leistungsfähiges Werkzeug, mit dem Sie direkt aus Excel VBA mit dem Dateisystem Ihres Computers arbeiten können. Wenn Sie Dateien und Ordner erstellen, kopieren, verschieben oder löschen und nach bestimmten Kriterien nach Dateien suchen müssen, bietet FileSystemObject alle erforderlichen Funktionen.

In diesem vollständigen Handbuch werden wir die Grundlagen der Arbeit mit CreateObject Scripting erläutern.FileSystemObject in Excel VBA.

Zunächst müssen Sie eine Instanz des Scripting-Objekts erstellen.FileSystemObject. Verwenden Sie dazu die Funktion CreateObject und übergeben Sie ihr den Klassennamen Scripting.FileSystemObject. Zum Beispiel:

Installieren und Erstellen eines Scripting-Objekts.FileSystemObject in Excel VBA

Um ein Scripting-Objekt zu verwenden.FileSystemObject in Excel VBA müssen Sie einige vorbereitende Schritte ausführen.

1. Schließen Sie die Bibliothek "Microsoft Scripting Runtime" an. Klicken Sie dazu im Projekt-Explorer mit der rechten Maustaste auf ein VBA-Projekt und wählen Sie Referenzen aus. Suchen Sie im angezeigten Fenster nach "Microsoft Scripting Runtime" und markieren Sie sie, und klicken Sie dann auf "OK".
2. Deklarieren Sie eine Variable, die das Scripting-Objekt enthält.FileSystemObject mit der folgenden Codezeile:

Dim fso As Scripting.FileSystemObject

Diese Zeichenfolge deklariert eine Variable "fso" vom Typ "Scripting".FileSystemObject", das für den Zugriff auf die Methoden und Eigenschaften des Objekts verwendet wird.

Nachdem Sie eine Variable deklariert haben, können Sie ein Scripting-Objekt erstellen.FileSystemObject mit der Funktion CreateObject:

Set fso = CreateObject("Scripting.FileSystemObject")

Diese Zeile erstellt ein neues Scripting-Objekt.FileSystemObject und weist es der Variablen "fso" zu. Jetzt können Sie die Variable "fso" verwenden, um auf die Methoden und Eigenschaften eines Objekts zuzugreifen.

Stellen Sie sicher, dass Sie die vom Scripting-Objekt belegten Ressourcen freigeben.FileSystemObject, wenn sie nicht mehr benötigt werden, indem Sie die folgende Codezeile verwenden:

Set fso = Nothing

Auf diese Weise können Sie ein Scripting-Objekt festlegen und erstellen.FileSystemObject in Excel VBA und verwenden Sie es, um verschiedene Operationen mit Dateien und Ordnern durchzuführen.

Methoden und Eigenschaften des Scripting-Objekts.FileSystemObject in Excel VBA

Ein Scripting-Objekt.Das FileSystemObject in Excel VBA stellt eine Reihe von Methoden und Eigenschaften für die Arbeit mit dem Dateisystem bereit, z. B. das Erstellen, Verschieben, Löschen von Dateien und Ordnern sowie das Lesen und Schreiben von Dateien.

Die folgende Tabelle enthält einige der am häufigsten verwendeten Methoden und Eigenschaften eines Scripting-Objekts.FileSystemObject :

Dies ist nur eine kleine Liste der gängigsten Methoden und Eigenschaften eines Scripting-Objekts.FileSystemObject . Wenn Sie diese in Kombination verwenden, können Sie das Dateisystem effektiv verwalten, wenn Sie mit Excel VBA arbeiten.

Lesen und Schreiben von Dateien mit Scripting.FileSystemObject in Excel VBA

Sie können ein Objekt in Excel VBA verwenden CreateObject("Scripting.FileSystemObject") zum Lesen und Schreiben von Dateien auf der Festplatte. Dieses Objekt bietet leistungsstarke Funktionen für die Arbeit mit dem Dateisystem, z. B. das Erstellen, Kopieren, Verschieben, Löschen von Dateien und vieles mehr.

Hier sind Beispiele für die Verwendung von Scripting.FileSystemObject zum Lesen und Schreiben von Dateien in Excel VBA:

Datei lesen:

Sub ReadFile()Dim fso As ObjectDim file As ObjectDim text As String' Создание объекта FileSystemObjectSet fso = CreateObject("Scripting.FileSystemObject")' Открытие файла для чтенияSet file = fso.OpenTextFile("C:\путь\к\файлу.txt", 1)' Чтение содержимого файлаtext = file.ReadAll' Закрытие файлаfile.Close' Вывод содержимого файла на лист ExcelRange("A1").Value = textEnd Sub

In eine Datei schreiben:

Sub WriteFile()Dim fso As ObjectDim file As ObjectDim text As String' Создание объекта FileSystemObjectSet fso = CreateObject("Scripting.FileSystemObject")' Создание файла для записиSet file = fso.CreateTextFile("C:\путь\к\файлу.txt", True)' Запись текста в файлtext = "Привет, мир!"file.WriteLine text' Закрытие файлаfile.CloseEnd Sub

In beiden Beispielen wird zuerst ein Objekt erstellt FileSystemObject mit der Methode CreateObject. Anschließend wird mithilfe der Methoden des Objekts eine Datei zum Lesen oder Schreiben geöffnet oder erstellt. Anschließend können Sie den Inhalt der Datei mit einer Methode lesen ReadAll oder schreiben Sie Daten mithilfe von Methoden in eine Datei WriteLine oder Write. Schließlich sollte die Datei mit einer Methode geschlossen werden Close.

Scripting.Das FileSystemObject in Excel VBA bietet viele andere Funktionen: Sie können die Existenz einer Datei oder eines Ordners überprüfen, die Sichtbarkeit einer Datei oder eines Ordners überprüfen, den Pfad einer Datei oder eines Ordners abrufen und so weiter. Wenn Sie mit dem Dateisystem in Excel VBA arbeiten müssen, ist das Scripting-Objekt.FileSystemObject wird zu einem unverzichtbaren Werkzeug.

Erstellen und Löschen von Ordnern mithilfe von Scripting.FileSystemObject in Excel VBA

In VBA für Excel können Sie ein CreateObject("Scripting."FileSystemObject"), um mit Dateien und Ordnern auf Ihrem Computer zu arbeiten. Mit diesem Objekt können Sie Ordner erstellen, löschen und deren Existenz überprüfen. Betrachten Sie Beispiele für die Verwendung dieses Objekts zum Erstellen und Löschen von Ordnern.

Ordner erstellen

Verwenden Sie zum Erstellen eines neuen Ordners die CreateFolder-Methode des Scripting-Objekts.FileSystemObject :

Sub CreateFolderExample()Dim fso As ObjectDim folderPath As StringSet fso = CreateObject("Scripting.FileSystemObject")folderPath = "C:\Новая папка"' Проверяем, существует ли папкаIf Not fso.FolderExists(folderPath) Then' Создаем новую папкуfso.CreateFolder folderPathMsgBox "Папка успешно создана!"ElseMsgBox "Папка уже существует!"End If' Освобождаем ресурсыSet fso = NothingEnd Sub

In diesem Beispiel wird ein neuer Ordner "Neuer Ordner" auf Laufwerk C: erstellt. Zuerst wird überprüft, ob ein Ordner mit diesem Namen mit der FolderExists-Methode vorhanden ist. Wenn der Ordner nicht vorhanden ist, wird mit der CreateFolder-Methode ein neuer Ordner erstellt. Wenn der Ordner bereits vorhanden ist, wird eine Fehlermeldung angezeigt.

Ordner löschen

Verwenden Sie zum Löschen eines Ordners die DeleteFolder-Methode des Scripting-Objekts.FileSystemObject :

Sub DeleteFolderExample()Dim fso As ObjectDim folderPath As StringSet fso = CreateObject("Scripting.FileSystemObject")folderPath = "C:\Новая папка"' Проверяем, существует ли папкаIf fso.FolderExists(folderPath) Then' Удаляем папкуfso.DeleteFolder folderPathMsgBox "Папка успешно удалена!"ElseMsgBox "Папка не существует!"End If' Освобождаем ресурсыSet fso = NothingEnd Sub

In diesem Beispiel wird der Ordner "Neuer Ordner" auf Laufwerk C: gelöscht. Zuerst wird überprüft, ob der Ordner mit der FolderExists-Methode vorhanden ist. Wenn ein Ordner vorhanden ist, wird er mit der DeleteFolder-Methode gelöscht. Wenn der Ordner nicht vorhanden ist, wird eine Fehlermeldung angezeigt.

Schlußfolgerung

Verwenden eines Scripting-Objekts.Das FileSystemObject in Excel VBA zum Erstellen und Löschen von Ordnern ist eine einfache und bequeme Möglichkeit, das Dateisystem eines Computers zu verwalten. Dieses Objekt bietet auch andere nützliche Methoden für die Arbeit mit Dateien und Ordnern, die in Ihrem Code verwendet werden können.

Ich hoffe, diese Anleitung hilft Ihnen beim Erstellen und Löschen von Ordnern mit Scripting.FileSystemObject in Excel VBA.

Arbeiten mit Datei- und Ordnerpfaden in Scripting.FileSystemObject in Excel VBA

Verwenden Sie in Excel VBA ein Scripting-Objekt.FileSystemObject Sie können nicht nur mit Dateien und Ordnern arbeiten, sondern auch die Pfade zu ihnen bearbeiten. Dies ist sehr praktisch beim Schreiben von Makros, bei denen Dateien in bestimmten Ordnern geöffnet, geändert oder gespeichert werden müssen.

Arbeiten mit Datei- und Ordnerpfaden in Scripting.Das FileSystemObject wird mit den von diesem Objekt bereitgestellten Methoden erstellt.

Die grundlegendste Methode zum Arbeiten mit Pfaden ist die Methode GetAbsolutePathName. Es nimmt einen relativen Pfad zu einer Datei oder einem Ordner an und gibt seinen absoluten Pfad zurück.

Beispiel für GetAbsolutePathName:

Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Dim relativePath As StringDim absolutePath As StringrelativePath = "Documents\file.txt"absolutePath = fso.GetAbsolutePathName(relativePath)MsgBox "Абсолютный путь: " & absolutePath

In diesem Beispiel verwenden wir ein Scripting-Objekt.FileSystemObject, um den absoluten Dateipfad "file" abzurufen.txt", das sich im Ordner "Dokumente" relativ zum aktiven Ordner befindet.

Wenn Sie den Namen einer Datei oder eines Ordners aus dem vollständigen Pfad abrufen möchten, können Sie die folgenden Methoden verwenden GetFileName und GetFolderName entsprechend.

Beispiel für die Verwendung der Methoden GetFileName und GetFolderName:

Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Dim fullPath As StringDim fileName As StringDim folderName As StringfullPath = "C:\Documents\file.txt"fileName = fso.GetFileName(fullPath)folderName = fso.GetFolderName(fullPath)MsgBox "Имя файла: " & fileName & vbNewLine & "Имя папки: " & folderName

In diesem Beispiel verwenden wir die Methoden GetFileName und GetFolderName, um den Dateinamen und den Ordnernamen aus dem vollständigen Pfad abzurufen "C:\Documents\file .txt".

Auch ein Scripting-Objekt.FileSystemObject stellt eine Methode bereit BuildPath, mit dem Sie den Datei- oder Ordnerpfad basierend auf den angegebenen Komponenten erstellen können.

Beispiel für die Verwendung der BuildPath-Methode:

Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Dim folderPath As StringDim fileName As StringDim fullPath As StringfolderPath = "C:\Documents"fileName = "file.txt"fullPath = fso.BuildPath(folderPath, fileName)MsgBox "Полный путь: " & fullPath

In diesem Beispiel verwenden wir die BuildPath-Methode, um den vollständigen Dateipfad "file" zu erstellen.txt" im Ordner "C:\Documents ".

Dies sind nur einige Beispiele für Methoden des Scripting-Objekts.FileSystemObject, das Ihnen beim Arbeiten mit Datei- und Ordnerpfaden in Excel VBA hilft. Mit diesen Methoden können Sie die Pfade zu Dateien und Ordnern in Ihren Makros einfach und bequem bearbeiten.