Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Peter1000 vom 27.02.2020, 17:24 Options

Excel Teilbereiche speichern

Hallo,

habe eine Tabelle mit 10.000 Zeilen. Möchte diese in Paketen zu 500 Zeilen im txt - Format abspeichern.
Dies geht manuell, indem ich teile rauskopiere, in eine neue Arbeitsmappe einfüge und dann als txt - Datei abspeichere. Das ganze ist jedoch sehr aufwendig.

Kennt jemand eine einfachere Lösung ? Danke für Antwort

Antwort schreiben

Antwort 1 von Beverly vom 27.02.2020, 18:20 Options

Hi Peter,

Sub textdateien_erstellen()
    Dim Fso
    Dim fsoDatei
    Dim raBereich
    Dim loZeile As Long
    Dim inDatei As Integer
    Dim inZeile As Integer
    inDatei = 1
    inZeile = 1
    For inDatei = 1 To 20
        raBereich = Range("A" & inZeile & ":A" & inZeile + 499)
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set fsoDatei = Fso.OpenTextFile("C:\Test\Text" & inDatei & ".txt", 8, True)
        For loZeile = 1 To UBound(raBereich)
           fsoDatei.Write raBereich(loZeile, 1) & vbCrLf
        Next
        fsoDatei.Close
        inZeile = inZeile + 500
    Next inDatei
End Sub

Bis später,
Karin

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken