In Microsoft Excel ist das Abrufen von Informationen aus einer geschlossenen Arbeitsmappe eine der zeitsparendsten Möglichkeiten, mithilfe von VBA-Code genaue Daten zu erhalten. In diesem Artikel erfahren Sie, wie Sie mithilfe von VBA in Microsoft Excel Informationen aus einer geschlossenen Arbeitsmappe lesen.
Wenn Sie mehrere Dateien per E-Mail oder einer anderen Quelle erhalten und Informationen in einer bestimmten Zelle gespeichert haben möchten, sollten Sie dieses Tutorial lesen.
Um dieses Beispiel zu verstehen, müssen wir einige Beispieldateien in einem Pfad erstellen, den wir im VBA-Code verwenden; Hier haben wir einige Dateien (North & West-Dateien) im Pfad „D:\testing“ gespeichert.
Um Daten aus allen Excel-Dateien in einem Ordner zu extrahieren, müssen wir die folgenden Schritte ausführen, um den VB-Editor zu starten:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie aus der Gruppe Code die Option Visual Basic
- Kopieren Sie den folgenden Code in das Standardmodul
Sub ReadDataFromAllWorkbooksInFolder() Dim FolderName As String, wbName As String, r As Long, cValue As Variant Dim wbList() As String, wbCount As Integer, i As Integer FolderName = "D:\testing" 'Liste der Arbeitsmappen in Ordnername erstellen' --- Kommentar wbCount = 0 wbName = Dir(FolderName & "\" & "*.xls") Während wbName "" wbCount = wbCount + 1 ReDim Preserve wbList(1 To wbCount) wbList(wbCount) = wbName wbName = Dir Wend If wbCount = 0 Then Exit Sub 'Werte aus jeder Arbeitsmappe abrufen' --- Kommentar r = 0 Workbooks.Add For i = 1 To wbCount r = r + 1 cValue = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "A1") Cells(r, 1).Formula = wbList(i) Cells(r, 2).Formula = cValue Next i End Sub Private Function GetInfoFromClosedFile(ByVal wbPath As String, _ wbName As String, wsName As String, cellRef As String) As Variant Dim arg As String GetInfoFromClosedFile = "" If Right(wbPath, 1) "\" Then wbPath = wbPath & "\" If Dir(wbPath & "\" & wbName) = "" Then Exit Function arg = "'" & wbPfad & "[" & wb Name & "]" & _ wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1) Bei Fehler Fortsetzen Weiter GetInfoFromClosedFile = ExecuteExcel4Macro(arg) End Function
Wir müssen das Makro ausführen und es folgt der Schnappschuss des Ergebnisses:
Abschluss: Mit dem obigen Code können wir Daten aus einer geschlossenen Arbeitsmappe aus einer bestimmten Zelle abrufen.
Hinweis: Zelle A1 wird als Beispiel verwendet; Wenn Sie Daten aus einer anderen Zelle abrufen möchten, müssen Sie diese Zelle nur erwähnen.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site