1. Wie Importiere ich mit VBA eine Textdatei hinter eine andere Textdatei nach
Excel zur zeit habe ich eine feste Zelle im Quellcode eingegeben für die
zweite Textdatei will aber das VBA das automatisch erkennt wo die erste
aufhört weil die erste nicht immer gleich groß ist.
2. Wie kann ich den Pfad dynamisch eingeben das wenn der Ordner auf eine
andere Position verschoben wird es ihn auch noch findet wie bei VB.Net
mit einer SQL anweisung.
Geht das Überhaupt wenn ja WIE?
Im Vorraus schon mal Danke für eure Bemühungen.
Hier mein Quellcode:
Function Erstelldat() As Date
Erstelldat = ActiveWorkbook.BuiltinDocumentProperties("Creation date")
End Function
Private Sub CommandButton1_Click()
Open "G:\DV\Weltweit\CN - China\99_Kleer\8_HAENEL\mach01.txt" For Input As #1
Zeile = 1
Do While Not EOF(1)
Line Input #1, s
If Trim(s) <> "" Then
Zeile = Zeile + 1
If Zeile > Rows.Count Then
Sheets.Add
Zeile = 1
End If
Range("A" & Zeile) = Erstelldat()
Range("B" & Zeile) = ("mach01")
Range("C" & Zeile) = Mid(s, 4, 18)
Range("D" & Zeile) = Mid(s, 26, 2)
Range("E" & Zeile) = Mid(s, 30, 3)
Range("F" & Zeile) = Mid(s, 35, 3)
Range("G" & Zeile) = Mid(s, 40, 8)
Range("H" & Zeile) = Mid(s, 50, 3)
Range("I" & Zeile) = Mid(s, 55, 5)
Range("J" & Zeile) = Mid(s, 62, 8)
Range("K" & Zeile) = Mid(s, 72, 2)
Range("L" & Zeile) = Mid(s, 76, 18)
Range("M" & Zeile) = Mid(s, 96, 18)
'ActiveSheet.Range("A" & Zeile) = s
End If
Loop
Close #1
End Sub
Private Sub CommandButton2_Click()
Open "G:\DV\Weltweit\CN - China\99_Kleer\8_HAENEL\mach02.txt" For Input As #1
Zeile = 1500
Do While Not EOF(1)
Line Input #1, s
If Trim(s) <> "" Then
Zeile = Zeile + 1
If Zeile > Rows.Count Then
Sheets.Add
Zeile = 1
End If
Range("A" & Zeile) = Erstelldat()
Range("B" & Zeile) = ("mach02")
Range("C" & Zeile) = Mid(s, 4, 18)
Range("D" & Zeile) = Mid(s, 26, 2)
Range("E" & Zeile) = Mid(s, 30, 3)
Range("F" & Zeile) = Mid(s, 35, 3)
Range("G" & Zeile) = Mid(s, 40, 8)
Range("H" & Zeile) = Mid(s, 50, 3)
Range("I" & Zeile) = Mid(s, 55, 5)
Range("J" & Zeile) = Mid(s, 62, 8)
Range("K" & Zeile) = Mid(s, 72, 2)
Range("L" & Zeile) = Mid(s, 76, 18)
Range("M" & Zeile) = Mid(s, 96, 18)
'ActiveSheet.Range("A" & Zeile) = s
End If
Loop
Close #1
End Sub