Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bug in Exportfunktion (als Text) von Excel???

Bug in Exportfunktion (als Text) von Excel???
30.01.2004 13:10:18
Volprich Thilo
Hallo Forum,
ich habe ein Problem, welches mich schon Tage qüalt. Ich lese über Excel eine Textdatei ein. Wandle diese um und erzeuge daraus dann eine neue, aufbereitete Textdatei, welche ich dann in anderen Programmen weiter verarbeite.
Dabei tritt aber folgendes Problem auf. Die exportierte Datei, über speichern unter, erzeugt, egal in welchem Format eine Datei, die immer eine Leerzeile unter den eigentlichen Daten hat. Jetzt meine Fragen:
1 - Kann ich dies verhindern, gibt es eine Konstante, die ich setzen kann
2 - Kann ich nachträglich die letzte Zeile in einem Textfile löschen.
Wenn jemand ne Idee hat, wäre ich echt dankbar. Habe hier im Forum jetzt schon lange gesucht, bin aber noch nicht fündig geworden.
Danke schön
Thilo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bug in Exportfunktion (als Text) von Excel???
30.01.2004 16:30:54
klaus
Hallo Thilo,
probier doch mal Dein Text-File mit dem Befehl "Print #" zu schreiben. Hier mußt Du zwar Zeile für Zeile schreiben, kannst aber verhindern, daß am Schluß eine Leerzeile geschrieben wird.
Sub HierErst(WsI As Worksheet)
Pf = Ordner(WsI.Range("X1")) & WsI.Range("X2")
Fi = FreeFile()
Open Pf For Output As #Fi
Print #Fi, "TEXT";
Close #Fi
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige