Office: Daten aus geschlossener Mappe importieren mit Auswahlmöglichkeit

Fips60 · 22. August 2020

Hallo Zusammen,
ich habe mal wieder ein kleines Problem. ich möchte aus einer geschlossenen Arbeitsmappe mehrere Bereiche auslesen und in eine andere (geöffnete) Mappe einlesen. Beim Stöbern bin ich im Netz bei "Excel-Inside" auf nachfolgende Excel4Makro-Funktion gestoßen, die ich angepasst habe. Die Funktion läuft soweit auch, allerdings nur, wenn ich entweder einen festen Pfad zum Einlesen vorgebe, oder - wie es jetzt ist - beide Mappen im selben Ordner liegen. Da die beiden Mappen aber auch in unterschiedlichen Ordnern liegen können hätte ich gerne die Möglichkeit die Datei auswählen zu können.
Ich habe schon alles mögliche versucht (auch mit den auskommentierten Zeilen), aber weiter als bis zum Auswählen geht es nicht. Das Makro läuft durch, bringt auch keine Fehlermeldung, es werden aber auch keine Daten eingelesen. Wo liegt der Hase im Pfeffer?

Code:

Private Function GetValue(Pfad, Datei, Blatt, zelle)
'** Daten aus geschlossener Arbeitsmappe auslesen

'*** Dimensionierung der Variablen
Dim arg As String

'Sicherstellen, dass das datei vorhanden ist
If Right(Pfad, 1) "" Then Pfad = Pfad & ""
If Dir(Pfad & Datei) = "" Then
GetValue = "datei Not Found"
Exit Function
End If

'** Das Argument erstellen
arg = "'" & Pfad & "[" & Datei & "]" & Blatt & "'!" & Range(zelle).Range("A1").Address(, , xlR1C1)

'** Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)

End Function

Sub Daten_Import()
'** Dimensionierung der Variablen
Dim Pfad As String, Datei As String, Blatt As String, Bereich As Range, Zelle As Object, Bereich1 As Object, Bereich2 As Object, Bereich3 As Object, rng As Range

'** Angaben zur auszulesenden Zelle

'ChDrive Left(ActiveWorkbook.Path, 4)
'ChDir ActiveWorkbook.Path
'Pfad = "D:Ordner_AFormulare"
'Datei = Application.GetOpenFilename("Excel-Dateien(*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")

Pfad = ThisWorkbook.Path

Datei = "Testdatei.xlsm"
Blatt = "Abrufdaten"
Set Bereich1 = Range("G3:G130")
Set Bereich2 = Range("L3:L12")
Set Bereich3 = Range("K32:K38")
'** Bereich auslesen

For Each zelle In Bereich1

'** Zellen umwandeln
zelle = zelle.Address(False, False)

'** Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(Pfad, Datei, Blatt, zelle)

Next zelle

For Each rng In Range("G3:G130")
If rng.Value = 0 Then rng.ClearContents
Next

For Each zelle In Bereich2

'** Zellen umwandeln
zelle = zelle.Address(False, False)

'** Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(Pfad, Datei, Blatt, zelle)
Next zelle

For Each zelle In Bereich3

'** Zellen umwandeln
zelle = zelle.Address(False, False)

'** Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(Pfad, Datei, Blatt, zelle)
Next zelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vorab schon mal Danke.

Grüße aus dem Norden
Fips

:)

Klaus-Dieter · 24. August 2020

Hallo,

welchen Vorteil hat es deiner Ansicht nach, Daten aus geschlossenen Dateien auszulesen?

Luschi · 24. August 2020

Hallo Fips,

das Auslesen aus geschlossenen Dateien klappt wunderbar, auch wenn die Lesedatei in einem anderen Ordner liegt: meine Korrektur:

Pfad = ThisWorkbook.Path & "\"
Datei = "Testdatei.xlsm"

Gruß von Luschi
aus klein-Paris

Fips60 · 25. August 2020

Hallo Ihr Zwei,

zuerst mal Danke für die Frage bzw. Antwort.

@Klaus-Dieter: Öffnen der Datei, Kopieren und Einfügen der einzelnen Bereiche (die mehrere und größer sind als hier in der Testdatei) entfällt; Bequemlichkeit meiner Kollegen und mir.

@Luschi: Wenn die Datei in einem anderen Ordner liegt kommt der Hinweis "datei not found" *frown.gif*

WS-53 · 25. August 2020

Für Power Query ist es kein Problem, Daten aus geschlossenen Mappen zu lesen.

Office: Daten aus geschlossener Mappe importieren mit Auswahlmöglichkeit

Daten aus geschlossener Mappe importieren mit Auswahlmöglichkeit

Daten aus geschlossener Mappe importieren mit Auswahlmöglichkeit

Daten aus geschlossener Mappe importieren mit Auswahlmöglichkeit

Daten aus geschlossener Mappe importieren mit Auswahlmöglichkeit - Similar Threads - Daten geschlossener Mappe

Geschlossene Datei Makro für Daten entziehen

Excel VBA aus einem Formular Daten in eine geschlossen Arbeitsmappe zu übertragen

Daten aus geschlossener Exceltabelle auslesen

Daten aus geschlossener Exceldatei einlesen

Word/Excel Formulare mit dynamischen Abruf von Daten aus geschlossenen Excel Dateien

VBA Daten auf geschützter und geschlossener Datei holen, pleace help!!

Daten aus geschlossener Arbeitsmappe auslesen (GetValue-Fehler)