Hallo,
ich möchte diverse textdateien in excel einfügen, mehrere Dateien aus einem auszuwählendem Ordner. Jede Datei soll sein eigenes Sheet bekommen und mit dateinamen benannt werden. Im Anschluss will ich aus deisen Sheets diverse zellen auslesen und in eine art tabelle auflisten (5 Werte pro datei in Zeilen nebeneinander).
Folgende Codes nutze ich bereits:
Dateien einfügen:
Sub Datei_Importieren()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
Const cstrDelim As String = ";" 'Trennzeichen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = "hier kommt pfad rein*.*" 'Pfad anpassen
.Filters.Add "CSV-Dateien", "*.*"
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName <> "" Then
Workbooks.OpenText Filename:=strFileName, DataType:=xlDelimited, Semicolon:=True
ActiveSheet.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
End Sub
und zum auslesen der Werte:
Sub Daten_auslesen_neu()
ThisWorkbook.Worksheets("Tabelle1").Range("d9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
a19")
[d9] = Right(Range("D9"), 4)
ThisWorkbook.Worksheets("Tabelle1").Range("b9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
a200")
[b9] = Right(Range("b9"), 9)
ThisWorkbook.Worksheets("Tabelle1").Range("c9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
a201")
[c9] = Right(Range("c9"), 4)
ThisWorkbook.Worksheets("Tabelle1").Range("e9") = ThisWorkbook.Worksheets("Test_06P").Range(" _
a210")
[e9] = Right(Range("e9"), 7)
End Sub