AW: Datenimport aus geschlossener Mappe
28.04.2020 20:40:33
Hajo_Zi
Option Explicit
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'© t.ramel@mvps.org
' wird durch die HoleDaten aufgerufen
Dim strQuelle As String
Dim Zeilen As Long
Dim Spalten As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from _
closed Workbook"
GetDataClosedWB = False
End Function
Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
Pfad = "L:\Eigene Dateien\Hajo\Internet\Test\2009\"
Dateiname = "Beispiel Forum 30.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1" ' von welcher Tabelle soll er holen?
Bereich = "A1:B9" ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1") ' in welchen Bereich soll er kopieren? Genauer gesagt: _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub
'Public Sub HoleDaten()
' ' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
' Dim Pfad As String
' Dim Dateiname As String
' Dim Blatt As String
' Dim Bereich As String
' Dim Ziel As Range
' Dim Razelle As Range
' Dim LoI As Long
' Dim Loletzte As Long
' Dim Loletzte2 As Long
' Set Ziel = ActiveSheet.Cells(1, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row _
+ 1)
' ' in welchen Bereich soll er kopieren? Genauer gesagt: _
' Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
' If Range("G1") "" Then
' Loletzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count)
' For LoI = 1 To Loletzte
' Pfad = Cells(LoI, 7)
' Dateiname = "hayo.xlsm" ' aus welcher Datei soll er holen?
' Blatt = Cells(LoI, 8) ' von welcher Tabelle soll er holen?
' Bereich = Cells(LoI, 9) ' aus welchem Bereich soll er holen?
' Set Ziel = ActiveSheet.Range("A1") ' in welchen Bereich soll er kopieren? Genauer _
gesagt: _
' Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht _
auch
' If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
' MsgBox "Daten importiert"
' End If
' Next LoI
' End If
'End Sub