Sub loaddatatool()
Dim fdp As FileDialog
Dim vrtSelectedItem As Variant
Dim tmp(100)
Dim i As Integer
i = 1
Set fdp = Application.FileDialog(msoFileDialogFilePicker)
With fdp
.AllowMultiSelect = True
.InitialFileName = ""
.Title = "XLS-Datei Import zum lesen"
.Filters.Clear
.Filters.Add "Microsoft Office Excel-Dateien", "*.xls"
.ButtonName = "Load"
.InitialView = msoFileDialogViewList
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
tmp(i) = vrtSelectedItem
Workbooks("Zusammenfassung.xls").Sheets("Tabelle1").Cells(i, 1).Value = tmp(i)
i = i + 1
Next
End If
End With
Call using
End Sub
Sub using()
Dim i As Integer
Dim mappe As Workbook
Application.ScreenUpdating = False
For i = 1 To 100
If IsEmpty(Workbooks("Zusammenfassung.xls").Sheets("Tabelle1").Cells(i, 1)) Then Exit For
Workbooks.Open Filename:= _
Workbooks("Zusammenfassung.xls").Sheets("Tabelle1").Cells(i, 1).Value
Sheets(1).Cells.Copy
Windows("Zusammenfassung.xls").Activate
Sheets.Add
ActiveSheet.Paste
Next i
For Each mappe In Application.Workbooks
If mappe.Name = ThisWorkbook.Name Or mappe.Name = "Zusammenfassung" Then
Else
mappe.Close SaveChanges:=False
End If
Next
Application.ScreenUpdating = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen