Hilfe bei VBA Code
Stange
ich möchte per VBA aus einem Verzeichnis Exceldateien, die gleich aufgebaut sind auslesen.
Ich habe dies auch per VBA geschafft. Sie u.a. Code.
Nun möchte ich aber dass nur die Werte eingefügt werden, da die auszulesenden Dateien Funktionen enthalten.
Weiterhin möchte ich auch, dass die geöffneten Tabellen (nachdem Einlesen) wieder automatisch geschlossen werden.
Viel Dank für eure Hilfe.
Sub DateienZusammenkopieren()
Dim Mappe As String
Dim i As Integer
'Komplette Mappe
Mappe = ActiveWorkbook.Name
Range("A2").Select
With Application.FileSearch
.NewSearch
.LookIn = "H:\A10_Stange\Tageseinsatzplan Dispo I & II\Test"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Range("A3:Q105").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
ActiveCell.Offset(105, 0).Select
Next i
End With
Mappe = ActiveWorkbook.Name
Range("P1").Select
With Application.FileSearch
.NewSearch
.LookIn = "H:\A10_Stange\Tageseinsatzplan Dispo I & II\Test"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Range("P1").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
ActiveCell.Offset(105, 0).Select
Next i
End With
End Sub