excel datei splitten ?

Re(5): excel datei splitten ?

hariw — Sat, 13 Jul 2002 11:54:16 GMT

hi,

Sub splitWorkbook()
    Dim ExcelObject, ExcelSheet As Object
    Dim SheetName As String
    Dim SheetCounter As Integer
    SheetCounter = 1
    Application.DisplayAlerts = False
    For Each ExcelSheet In Worksheets
        Set ExcelObject = CreateObject("Excel.Sheet")
        Workbooks("splitWorkbook.xls").Worksheets(SheetCounter) _
        .Copy ExcelObject.Sheets(1)
        ExcelObject.Sheets(2).Delete
        SheetName = Workbooks("splitWorkbook.xls").Sheets(SheetCounter).Name
        ExcelObject.SaveAs "C:\xls\" & SheetName & ".xls"
        ExcelObject.Close
        SheetCounter = SheetCounter + 1
    Next
    Application.DisplayAlerts = True
End Sub

* als makro beim lehrer einfügen
* splitWorkbook.xls durch den namen "seiner" xls ersetzen
* C:\xls\ durch einen beliebigen (existierenden!!) pfad ersetzen

-> nimmt jedes sheet der xls, erzeugt neue files, in denen jeweils das eine sheet kopiert wird und nimmt als filenamen den namen des jeweiligen worksheets...
mag vielleicht nicht ganz "sauber" sein, funkt aber

lg,
hariw

Re(3): excel datei splitten ?

hariw — Sat, 13 Jul 2002 02:19:44 GMT

hi,

glaub fast nicht, dass´t ein makro findest, dass das macht, wäre schon ein grosser zufall...
sowas ließe sich aber schon basteln
aber "weils dann zu viele dateien sind....", um das kommt er nicht herum, man kann nur dateien verschicken, kein einzelnen sheets!
steht da wo der name der schüler in den sheets? sind die sheets nach den schülern benannt?

lg,
hariw

Re(3): excel datei splitten ?

User6465 — Fri, 12 Jul 2002 21:32:30 GMT

http://www.herber.de/forum/archiv/124to128/t124955.htm

villeicht hilft das

Re: excel datei splitten ?

Harti — Fri, 12 Jul 2002 21:17:55 GMT

Versuche es vielleicht einmal hier: http://www.excel-center.de/forum/list.php?f=1

Re(2): excel datei splitten ?

PierreK@ — Fri, 12 Jul 2002 20:40:32 GMT

eigentlich ist das für meinen deutsch lehrer.

der hat von jeden schüler ne kartei mit ichweiß net was.

und er will es an jedem per mail schicken aber halt nur die von jedem einzelnen.

und die methode mit kopieren mag er nicht weils dann zu viele dateien sind bei den zig hundert schülern die er hat.

er hatte mal irgendein proggi von nen genie aus der schule machen lassen das gepfunziwunzifunztatatut hat, jedoch wusste mein lehrer net wie er das bedient und hats unabsichtlich gelöscht.

Re: excel datei splitten ?

User6465 — Fri, 12 Jul 2002 18:27:43 GMT

hast ein dokument mit mehreren sheets?

wenn ja, dann kopier halt die sheets in einzelne xls´s.
oder zip des ganze und teils so auf