Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ElementImport()
- strExt = "*.XLS" 'Dateiextension ggf. anpassen
- ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (" & strExt & "), " & strExt, _
- Title:="Verzeichnisauswahl, erste Datei auswählen")
- If ZuÖffnendeDatei = False Then Exit Sub
- 'Die ausgewählte Datei ist egal. es wird hier nur das Verzeichnis der Datei ausgewertet
- Application.ScreenUpdating = False ' kein Bildschirm-Update - kein Flackern
- strPath = CurDir & "\"
- If strPath = "" Then
- Exit Sub
- Else
- ChDir strPath
- strFile = Dir(strPath & strExt) 'hier wird die erste Datei gefunden
- Do While Len(strFile) > 0
- Workbooks.OpenText Filename:=strPath & strFile, DataType:=xlDelimited, _
- TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
- Tab:=True, Semicolon:=False, Comma:=True, _
- Space:=False, Other:=False, trailingMinusNumbers:=True
- Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
- strFile = Dir() ' nächste Datei
- Loop
- End If
- Application.ScreenUpdating = True ' den Bildschirm-Update wieder zulassen
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement