Datei Splitten.
Verfasst: Do, 09.08.2012 13:17
Tach zusammen.
Ich versuche eine Datei zusplitten mit dieser Formel.
Die ist zwar für excel dachte aber die könnte ja im Openoffice auch Funktionieren ohne erfolg.
Gibt es das auch für Openoffice?
Ich versuche eine Datei zusplitten mit dieser Formel.
Code: Alles auswählen
Sub splitten()
' Makro1 Makro
' Makro am 15.12.2003 von andreas e
'Erweiterung: 25.08.2008 Author: christoph k.
Application.DisplayAlerts = False
Z = 1
For i = 2 To 28000 Step 500
Range(Rows(1), Rows(1)).Select
Selection.Copy
Sheets.Add
Range("A1").Select
ActiveSheet.Paste
Sheets(2).Activate
Range(Rows(i), Rows(i + 499)).Select
Selection.Copy
Sheets(1).Activate
''Sheets.Add
Range(Rows(2), Rows(2)).Select
ActiveSheet.Paste
ActiveSheet.Move
ChDir "D:\"
'''+++++++++++++++++!!!!!Achtung Pfad anpassen !!!!!+++++++++++++++++++
ActiveWorkbook.SaveAs Filename:="C:\split" & Z & ".txt", FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close
Z = Z + 1
Next i
Application.DisplayAlerts = True
End Sub Gibt es das auch für Openoffice?