Datei Splitten.

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Datei Splitten.

Re: Datei Splitten.

von Thomas Mc Kie » Do, 09.08.2012 14:40

--> viewforum.php?f=18

Datei Splitten.

von sandro22 » Do, 09.08.2012 13:17

Tach zusammen.

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
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?

Nach oben