Txt-Dateien einladen
31.05.2016 09:03:33
Jeremy
ich versuche gerade mehrere Textdateien aus einem Ordner (variabel) in ein Tabellenblatt einzuladen.
Der Ordner soll über ein Explorerähnliches Fenster selektiert werden.
Leider kann ich die beiden Codes nicht vernünftig verbinden.
Vielleicht könnt Ihr mir weiterhelfen? :) Danke
Sub MehrereTextdateienInTabelleEinlesen()
Dim strDatei As String
Tabelle1.Rows.Clear
Zeile = 1
strDatei = Dir("MeinPfad\*.txt")
Do While strDatei ""
Workbooks.OpenText Filename:="MeinPfad" & strDatei, _
DataType:=xlDelimited, semicolon:=True, local:=True
Set Quelle = ActiveWorkbook
Quelle.Worksheets(1).UsedRange.Copy Destination:=Tabelle1.Cells(Zeile, 1)
Quelle.Close savechanges:=False
strDatei = Dir
Zeile = Tabelle1.UsedRange.Rows.Count + 1
Loop
'AutoFit für Spalten herstellen
Tabelle1.Columns.AutoFit
End Sub
Option Explicit
Public Sub Ordnerauswahl()
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1) "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else MsgBox strOrdner
End Sub