Viele Dateien Zellen in eine Excel Datei kopieren
07.02.2019 16:38:16
Teom
mein Ziel ist es ein Makro in meiner Hauptdatei auszuführen das durch jede Datei in einem Ordner "springt", immer die gleichen Zellen Infos kopiert und dann in meine Hauptdatei speichert. Das öffnen der Dateien funktioniert schon mal, nun weiß ich leider nicht wie ich die Zelle kopiere.
Sub alle_Dateien_Verzeichnis()
Dim wksQ As Worksheet
Dim wkbZ As Workbook
Dim wksZ As Worksheet
Dim strPath As String
Dim wkbname As String
Dim strExt As String
strPath = "C:\Users\Teom\Desktop\ImportDateien\Input\" 'Pfad des Verzeichnisses ggf. _
anpassen
strExt = "*.xlsx" 'Dateiextension ggf. anpassen
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
' Wie spreche ich nun die geöffnete Datei an und kopiere eine bestimmte Zelle in meine _
Hauptdatei?
'Workbooks(strFile).Close
strFile = Dir() ' nächste Datei
End With
Loop
End If
End Sub