Wenn Sie mit Makros in VBA (Visual Basic for Applications) in Excel arbeiten, müssen Sie häufig verschiedene Dateien verarbeiten. Dies ist nützlich, um die Funktion GetOpenFileName zu verwenden, mit der Sie das Dialogfeld Dateiauswahl öffnen und den Pfad zur ausgewählten Datei abrufen können.
Die Funktion GetOpenFileName kann verwendet werden, um eine einzelne Datei oder mehrere Dateien abzurufen. In diesem Artikel betrachten wir ein Beispiel für die Verwendung der Funktion zum Abrufen aller Excel-Dateien in einem ausgewählten Ordner.
Zunächst müssen Sie ein neues Makro in VBA erstellen. Öffnen Sie dazu den Visual Basic-Editor, indem Sie eine Tastenkombination drücken Alt + F11. Wählen Sie im geöffneten Fenster Insert -> Module aus, um ein neues Modul zu erstellen. Schreiben wir im erstellten Modul den folgenden Code:
Sub GetExcelFiles()
Dim strFolder As String
Dim strFile As String
strFolder = Application.GetFolderName
strFile = Dir(strFolder & "\*.xls*")
Do While strFile <> ""
MsgBox strFile
strFile = Dir
Loop
End Sub
In diesem Code fragen wir zuerst den Ordnerpfad mithilfe einer Funktion ab Application.GetFolderName. Dann verwenden Sie die Funktion Dir. Wir erhalten den Namen der ersten Datei im Ordner mit der Erweiterung .xls oder .xlsx und geben seinen Namen mit der MsgBox-Funktion aus. Danach verwenden Sie die gleiche Funktion Dir. Wir erhalten den Namen der nächsten Datei und wiederholen die Schleife, bis alle Dateien im Ordner verarbeitet sind.
Jetzt können wir das Makro durch Drücken einer Tastenkombination ausführen Ctrl + F8 und ein Makro auswählen GetExcelFiles aus der Liste. Danach öffnet sich ein Dialog zur Ordnerauswahl, in dem wir den gewünschten Ordner auswählen können. Dadurch werden nacheinander die Namen aller Excel-Dateien im ausgewählten Ordner angezeigt.
Verwenden von VBA zum Arbeiten mit Excel-Dateien
Eine der bequemsten Funktionen für die Arbeit mit Excel-Dateien ist GetOpenFileName. Es ermöglicht dem Benutzer, eine oder mehrere Excel-Dateien auszuwählen, die geöffnet werden sollen.
Beispiel für die Verwendung der Funktion GetOpenFileName:
Sub OpenFiles()Dim FileNames As VariantDim i As Integer' Показать диалоговое окно выбора файловFileNames = Application.GetOpenFilename(filefilter:="Excel Files (*.xls*), *.xls*", MultiSelect:=True)' Проверить, выбраны ли файлыIf VarType(FileNames) = vbBoolean ThenIf Not FileNames Then Exit SubEnd If' Открыть выбранные файлыFor i = LBound(FileNames) To UBound(FileNames)Workbooks.Open FileNames(i)Next iEnd SubIn diesem Beispiel wird beim Ausführen des Makros ein Dialogfeld zur Dateiauswahl angezeigt, in dem der Benutzer eine oder mehrere Excel-Dateien zum Öffnen auswählen kann. Die Dateien werden dann mit der Workbooks-Funktion geöffnet.Open.
Beim Arbeiten mit Excel-Dateien mit VBA können Sie verschiedene Vorgänge ausführen, z. B. das Lesen und Schreiben von Daten, das Erstellen und Löschen von Arbeitsmappen, das Hinzufügen neuer Arbeitsblätter, das Formatieren usw. All diese VBA-Funktionen helfen Ihnen, die Arbeit mit Excel-Dateien erheblich zu vereinfachen und zu beschleunigen, insbesondere bei großen Datenmengen.
Bei der Verwendung von VBA sollten Sie jedoch vorsichtig sein und die Eingaben überprüfen, um Fehler zu vermeiden. Es wird auch empfohlen, die VBA-Dokumentation zu lesen und die Codebeispiele zu lesen, um alle Sprachfunktionen am effektivsten zu nutzen.
Abrufen von Excel-Dateien mithilfe der Funktion GetOpenFileName
In VBA (Visual Basic for Applications) ermöglicht die GetOpenFileName-Funktion dem Benutzer, eine oder mehrere Excel-Dateien auszuwählen, die geöffnet werden sollen. Diese Funktion ist besonders nützlich, wenn Sie automatisch mit verschiedenen Excel-Dateien arbeiten möchten.
Bevor Sie GetOpenFileName verwenden können, müssen Sie einen Verweis auf die Microsoft Office 16.0 Object Library oder eine ähnliche Bibliothek aktivieren, abhängig von der verwendeten Excel-Version.
Die Funktion GetOpenFileName hat mehrere Parameter. Die wichtigsten sind:
- FileFilter: Definiert die Dateitypen, die geöffnet werden können.
- Title: Legt den Titel des Dateiauswahldialogfelds fest.
- MultiSelect: Gibt an, ob mehrere Dateien ausgewählt werden können (True oder False).
Beispiel für die Verwendung der Funktion GetOpenFileName:
Sub GetExcelFiles()Dim FileNames As VariantDim i As Long' Показать диалоговое окно выбора файлаFileNames = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", _Title:="Выберите файлы Excel", _MultiSelect:=True)If Not IsArray(FileNames) Then Exit Sub ' Выход, если файл не выбран' Обработка выбранных файловFor i = LBound(FileNames) To UBound(FileNames)' Вставьте свой код для работы с каждым файлом ExcelMsgBox "Выбран файл: " & FileNames(i)Next iEnd SubIm folgenden Beispiel werden die vom Benutzer ausgewählten Excel-Dateien im Array FileNames gespeichert. Dann wird jede Datei mit einer Schleife durchlaufen. In diesem Fall wird für jede Datei eine Nachricht mit dem Namen angezeigt, aber Sie können den Code ändern, um die in Ihrem Fall erforderlichen Vorgänge auszuführen.
Die Funktion GetOpenFileName vereinfacht die Interaktion mit Excel-Dateien in VBA, sodass Sie mehrere Dateien gleichzeitig auswählen und bearbeiten können. Dies ist besonders nützlich bei der Massenverarbeitung von Daten oder bei der Automatisierung sich wiederholender Aufgaben.
Was ist die Funktion GetOpenFileName
Wenn Sie GetOpenFileName ohne Argumente aufrufen, wird der Benutzer aufgefordert, eine oder mehrere Excel-Dateien auszuwählen. Der Benutzer kann Dateien aus verschiedenen Verzeichnissen auswählen und einen Filter verwenden, um nur bestimmte Dateitypen anzuzeigen (z. B. nur Dateien mit einer Erweiterung) .xlsx).
Die Funktion GetOpenFileName gibt den Pfad und den Namen der ausgewählten Datei oder Datei als Zeichenfolge oder Array von Zeilen zurück, je nachdem, ob eine oder mehrere Dateien ausgewählt sind.
Diese Funktion ist nützlich, wenn Sie mehrere Excel-Dateien zum Lesen oder Verarbeiten von Daten auswählen möchten. Sie können beispielsweise GetOpenFileName verwenden, um Makros zu erstellen, die Daten aus mehreren Excel-Dateien in einer Tabelle ansammeln oder eine allgemeine Datenverarbeitung durchführen können.
| Argumente | Die Beschreibung |
|---|---|
| FileFilter | Eine Filterzeichenfolge, die nur Dateien mit einer bestimmten Erweiterung oder einem bestimmten Typ anzeigt. Zum Beispiel "Excel-Tabellen (*.xlsx), *.xlsx". Die restlichen Dateien werden ausgeblendet. |
| MultiSelect | Ein Boolescher Wert, der angibt, ob ein Benutzer mehrere Dateien gleichzeitig auswählen kann. Bei TRUE kann der Benutzer mehrere Dateien auswählen und bei FALSE nur eine Datei oder einen Ordner auswählen. |
| Title | Der Text, der in der Titelleiste des Dateiauswahlfensters angezeigt wird. |
Mit der Funktion GetOpenFileName können Sie die Benutzerfreundlichkeit und Effizienz von Excel-Dateien in VBA verbessern, indem Sie es Benutzern ermöglichen, sie mithilfe von Makros und Skripts auszuwählen und zu verarbeiten.
Beispiel für die Verwendung der Funktion GetOpenFileName
Der Vorteil der Verwendung der Funktion GetOpenFileName besteht darin, dass ein Dialogfeld zur Dateiauswahl geöffnet wird, in dem der Benutzer die Dateien bequem und flexibel auswählen kann.
Um die Funktion GetOpenFileName zu verwenden, müssen Sie die folgende Syntax verwenden:
Dim files As Variant
files = Application.GetOpenFilename(Title, FileFilter, FilterIndex, ButtonText, MultiSelect)
Title: Der Titel des Dateiauswahldialogfelds. Kann eine beliebige Zeichenfolge sein.
FileFilter: Eine Zeichenfolge, die angibt, welche Dateitypen ausgewählt werden können. Zum Beispiel "Excel-Dateien (*.xls;*.xlsx), *.xls;*.xlsx".
FilterIndex: Der Index des standardmäßig ausgewählten Dateityps. Kann eine beliebige Zahl sein.
ButtonText: Eine Textzeile mit optionalem Text für die Schaltfläche "Öffnen".
MultiSelect: Ein Boolescher Wert, der angibt, ob mehrere Dateien ausgewählt werden dürfen. Wenn True, kann der Benutzer mehrere Dateien auswählen, wenn False, kann der Benutzer nur eine Datei auswählen.
Beispiel für die Verwendung der Funktion GetOpenFileName zum Auswählen einer Excel-Datei:
Sub OpenFiles()Dim files As VariantDim i As Integer' Открытие диалогового окна выбора файлаfiles = Application.GetOpenFilename("Выберите файлы Excel", "Файлы Excel (*.xls;*.xlsx), *.xls;*.xlsx", , , True)' Проверка выбранных файловIf Not IsArray(files) ThenMsgBox "Файл не выбран!", vbCriticalExit SubEnd If' Итерация для каждого выбранного файлаFor i = LBound(files) To UBound(files)' Действия с файломMsgBox "Выбран файл: " & files(i)Next iEnd SubIn diesem Beispiel wird die Funktion GetOpenFileName verwendet, um eine oder mehrere Excel-Dateien auszuwählen. Wenn die Datei(en) erfolgreich ausgewählt wurde, werden sie in einer Schleife verarbeitet und führen die angegebenen Aktionen für jede Datei aus.
Die Verwendung der Funktion GetOpenFileName macht es daher einfach und bequem, Excel-Dateien im VBA-Code zu verarbeiten, sodass der Benutzer die gewünschten Dateien für die weitere Arbeit auswählen kann.
Wie verwende ich VBA, um empfangene Dateien zu verarbeiten
Nachdem Sie alle Excel-Dateien mit der Funktion GetOpenFileName in VBA abgerufen haben, können Sie die folgenden Schritte verwenden, um diese Dateien zu verarbeiten:
- Öffnen Sie jede Excel-Datei mit der Workbooks-Methode.Open.
- Greifen Sie mithilfe der Worksheets- oder Sheets-Eigenschaft auf die gewünschten Arbeitsblätter in jeder Datei zu.
- Verarbeiten Sie die Daten in jedem Arbeitsblatt, indem Sie die erforderlichen Vorgänge und Berechnungen mit VBA-Code ausführen.
- Speichern Sie die Änderungen mit der Save- oder SaveAs-Methode.
- Schließen Sie die Datei mit der Close-Methode.
Normalerweise verwenden Sie bei der Verarbeitung von Dateien Schleifen oder andere Flow-Control-Konstrukte, um alle Dateien in der empfangenen Liste mit der Funktion GetOpenFileName zu verarbeiten.
Neben der Verarbeitung von Daten in Arbeitsblättern können Sie VBA auch zum Sortieren, Filtern und anderen Manipulieren von Daten in geöffneten Dateien verwenden.
Achten Sie nach Abschluss der Verarbeitung der Dateien darauf, sie mit der Close-Methode zu schließen, um Computerressourcen freizugeben und Fehler bei nachfolgenden Vorgängen zu vermeiden.
Mit VBA zur Verarbeitung der resultierenden Excel-Dateien können Sie viele Routineaufgaben und sich wiederholende Aufgaben automatisieren, indem Sie Ihre Arbeit beschleunigen und vereinfachen.
Ausgewählte Dateien in einer Schleife öffnen
Nachdem der Benutzer die Dateien mit der Funktion GetOpenFileName ausgewählt hat, können Sie jede Datei in einer Schleife öffnen und die erforderlichen Schritte für jede einzelne Datei ausführen. Im Folgenden wird ein Beispielcode in VBA gezeigt, der jede ausgewählte Datei öffnet:
Sub OpenSelectedFiles()Dim selectedFiles As VariantDim selectedFile As VariantDim wb As Workbook' Показать диалоговое окно выбора файлов ExcelselectedFiles = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", _Title:="Выберите файлы", MultiSelect:=True)' Проверить, были ли выбраны файлыIf Not IsArray(selectedFiles) ThenExit SubEnd If' Открыть каждый выбранный файл в циклеFor Each selectedFile In selectedFilesSet wb = Workbooks.Open(selectedFile)' Выполнить необходимые действия с файломwb.Close SaveChanges:=FalseNext selectedFileEnd SubIn diesem Beispiel wird ein Array von selectedFiles erstellt, in dem die Pfade zu den ausgewählten Dateien gespeichert werden. Anschließend wird überprüft, ob die Dateien ausgewählt wurden. Wenn Sie ausgewählt wurden, wird jede Datei mit einer For Each-Schleife geöffnet und die erforderlichen Aktionen für die Datei ausgeführt. Wenn Sie mit jeder Datei fertig sind, wird sie geschlossen, ohne die Änderungen zu speichern.
Auf diese Weise können Sie mit VBA und der Funktion GetOpenFileName mehrere ausgewählte Dateien öffnen und die erforderlichen Schritte ausführen, was bei der Verarbeitung und Analyse von Daten aus mehreren Excel-Dateien hilfreich sein kann.
Anwenden von Operationen auf geöffnete Dateien
Das Abrufen einer Liste der geöffneten Excel-Dateien mit der Funktion GetOpenFileName in VBA bietet die Möglichkeit, verschiedene Operationen auf diese Dateien anzuwenden. Hier sind einige Beispiele:
1. Lesen von Daten aus geöffneten Dateien
Nachdem Sie eine Liste der geöffneten Dateien erhalten haben, können Sie eine Schleife verwenden, um jede Datei zu durchlaufen und die Daten daraus zu lesen. Sie können beispielsweise die Werte eines bestimmten Zellbereichs lesen, Daten aus verschiedenen Dateien zusammenführen oder die Daten analysieren.
2. Schreiben/Ändern von Daten in geöffneten Dateien
Neben dem Lesen von Daten können Sie VBA-Funktionen verwenden, um Daten in geöffneten Dateien zu schreiben oder zu ändern. Sie können beispielsweise einem bestimmten Zellbereich neue Werte hinzufügen, Formeln einfügen, das Zellenformat festlegen oder den Inhalt bereinigen.
3. Ausführen von Arbeitsblattoperationen und Arbeitsmappen
Die resultierenden geöffneten Dateien sind Arbeitsmappen, in denen Sie verschiedene Arbeitsblattvorgänge ausführen können. Sie können beispielsweise Kacheln zwischen Dateien kopieren oder verschieben, neue Kacheln erstellen, nicht benötigte Kacheln löschen oder Daten aus verschiedenen Kacheln zu einem zusammenführen.
4. Ausführen von Makros und Skripts in geöffneten Dateien
Wenn die geöffnete Datei Makros oder VBA-Skripte enthält, können Sie sie mithilfe von VBA-Funktionen aus dem Code ausführen. Dies ist nützlich, wenn Sie bestimmte Vorgänge automatisieren oder vorhandene Makros wiederverwenden müssen.
5. Geöffnete Dateien schließen und speichern
Nachdem Sie alle geöffneten Dateien ausgeführt haben, können Sie sie schließen, um die Änderungen zu speichern. Stellen Sie sicher, dass alle erforderlichen Änderungen gespeichert wurden, bevor Sie die Dateien schließen. Andernfalls können Sie Ihre Daten oder Einstellungen verlieren.
Mithilfe der vorgeschlagenen Operationen können Sie große Datenmengen verarbeiten und analysieren, Routineaufgaben automatisieren und mit VBA die Effizienz bei der Arbeit mit geöffneten Excel-Dateien verbessern.
