Hi,
ich versuche mehrere Textdateien (benannt so: test.001 ..test.002...test.01P...usw) in Excel zu importieren. im Ersten Schritt sollen diese im Optimalfall als separates sheet mit Dateinamen angelegt werden.
Mein Code dazu sieht wie folgt aus: diesen habe ich als Button "importieren" im sheet Tabelle 1 hinterlegt, funktioniert soweit nur der sheetname lautet nur "test(1)..test(2)..usw
Code:
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 = True
.Title = "Datei wählen"
.InitialFileName = "hier steht der pfad*.*" 'Pfad anpassen
.Filters.Add "CSV-Dateien", "*.csv", 1
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
Im Zweiten Schritt soll in Tabelle 1 werte aus den importierten Dateien aufgelistet werden, diese sind aber mies formatiert, d.h. ich muss teile der zellen abschneiden.
Wert 1 befindet sich in Zeile A19 und lautet: Wcomp=21.6 ich brauche nur den wert 21,6, dieser soll in D9 in Tabelle 1 eingefügt werden (werte der nächsten Dateien sollen darunter eingefügt werden)
Wert 2 befindet sich in Zeile A201 und lautet: YYYY/MM/DD:2016/7/19 ich brauche nur das Datum und es soll in B9 Tabelle 1 eingefügt werden
Wert 3 in Zelle A202 und lautet: HH:MM:10:48 hier nur die Uhrzeit und sie soll in C9 stehen
Wert 4 in Zelle A211 und laute: MFRx:8.26147 hier wird der Wert nach dem : gebraucht und dieser soll in Zelle E9 der Tabelle 1 stehen
Wert 5 wäre der Dateiname des Sheets (bzw der Textdatei) und solle in A9 Tabelle1 stehen
Die Formeln für werte 1 - 4 dazu habe ich bereits, auch einen Button für die "Auswertung" aber ich bekomme das nicht hin das er alle vorhandenen Sheets abarbeitet
Code sieht wie folgt aus:
Code:
Sub Auswertung()
'
' Auswertung Makro
'
'
ActiveCell.FormulaR1C1 = ""
Range("B9").Select
ActiveCell.FormulaR1C1 = "=RIGHT(TEST!R[192]C[-1],LEN(TEST!R[192]C[-1])-11)"
Range("C9").Select
ActiveCell.FormulaR1C1 = "=RIGHT(TEST!R[193]C[-2],LEN(TEST!R[193]C[-2])-6)"
Range("D9").Select
ActiveCell.FormulaR1C1 = "=RIGHT(TEST!R[10]C[-3],LEN(TEST!R[10]C[-3])-6)"
Range("E9").Select
ActiveCell.FormulaR1C1 = "=RIGHT(TEST!R[202]C[-4],LEN(TEST!R[202]C[-4])-5)"
Range("E10").Select
End Sub
Ich bin echt absoluter Anfänger und fast der Meinung so lange wie ich das bereits versuche könnte ich das auch händisch machen, aber es geht ums Prinzip und das ich das ggf lerne und verstehe. und für weitere Dateien anwenden kann.
Hoffe mir kann jmd helfen?