Daten zusammen Führen
Jochen
ich möchte aus Dateien ( Name immer unterschiedlich ) die mir zugeschickt werden, Daten aus einem immer gleich lautenden Tabellenblatt in eine Sammeldatei importieren. Kann man das mit einer VBA-Abfrage machen und wenn JA dann BITTE eine Lösung.
In der Quelldatei sind die Daten untereinander angeordnet, in der Zieldatei sollen die Daten in einer Reihe angeordnet werden.
Ich habe bereits ein VBA Befehl der sich aber aufhängt.
Function FileArray(ByVal strPath As String, sPattern As String)
Dim arr(), iNr As Integer, tmp As String
an dieser Stelle >>> With Application.FileSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = False
.Filename = sPattern
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
ReDim arr(1 To .FoundFiles.Count)
For iNr = 1 To .FoundFiles.Count
tmp = .FoundFiles(iNr)
arr(iNr) = Right(tmp, Len(tmp) - InStrRev(tmp, "\"))
Next iNr
Else
ReDim arr(-1 To -1)
MsgBox "Es wurden keine Dateien gefunden.", vbInformation
End If
End With
FileArray = arr
End Function
Gruß
Jochen