Hallo Herr Vogtsburger, ich hatte das nur in der Vergangenheit bei der Übernahme einer Jahresbuchhaltung (Autohändler). Mit dem verlinkten Skript kommen Sie sicher klar. Habe es selbst damals auch hinbekommen (Excel 2010), und ich bin – im Gegensatz zu Herrn Martens – völlig blank bzgl. VBS. Der entscheidende Beitrag aus dem Link ist jener hier: Option Explicit Const cstrPath As String = "e:\test\" ' Pfad der Textdateien Const cstrInFile As String = "alles.txt" ' die zu teilende Eingabedatei Const cstrOutFiles = "aus_" ' Prefix der Ausgabedateien Const clngZeilen As Long = 5 ' max. Anzahl der Zeilen je Ausgabedatei Sub Teilen() Dim intNum As Integer ' Nummer im Namen der Ausgabedateien Dim ar As Variant ' Array mit allen Zeilen der Eingabedatei Dim i As Long ' Zeilennummer ar = Split(ReadFile(cstrPath & cstrInFile), vbNewLine) For i = 1 To UBound(ar) Step clngZeilen WriteFile intNum, ar, i intNum = intNum + 1 Next End Sub Public Function ReadFile(ByVal strFileName As String) As String Dim intHandle As Integer intHandle = FreeFile Open strFileName For Input As #intHandle ReadFile = Input(LOF(intHandle), #intHandle) Close #intHandle End Function Public Function WriteFile(ByVal intNum%, ByVal ar As Variant, ByVal lngStartLine As Long) Dim intHandle As Integer Dim strName As String Dim i As Long strName = cstrPath & cstrOutFiles & Format(intNum, "00") & ".txt" intHandle = FreeFile Open strName For Output As #intHandle Print #intHandle, ar(0) i = lngStartLine While i < UBound(ar) And i < lngStartLine + clngZeilen Print #intHandle, ar(i) i = i + 1 Wend Close #intHandle End Function Da das Skript sehr komfortabel mit Variablen aufgebaut ist, musste ich, soweit ich mich entsinne, tatsächlich nur die fett markierten Stellen anpassen. Viel mehr hätte ich sicher auch nicht hinbekommen. Viele Grüße.
... Mehr anzeigen
