Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

txt-Datei downloaden, ergänzen, speichern

txt-Datei downloaden, ergänzen, speichern
04.02.2009 21:20:33
bully
Hallo Excelfreunde,
per VBA-Code downloade ich eine txt-Datei, benenne sie um, und speicher sie auf einer Diskette ab. So funktioniert es im Moment.
Nun ist es erforderlich, dass ich der txt-Datei vier bis zehn Zeilen (Datensätze) hinzufüge und erst dann speichere.
Ich habe mir vorgestell, dass ich die Daten in ein Arbeitsblatt ab Zeile 10 einlese (so kann ich in den Zeilen 1-10 meine Datensätze einfügen) und dann das Arbeitsblatt ohne Leerzeilen als txt-Datei wieder speichere.
Wie müsste ein Code dazu aussehen?
Oder gibt es eine einfacher Lösung?
Gruss bully

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt-Datei downloaden, ergänzen, speichern
04.02.2009 21:34:00
Ramses
Hallo
Bevor du in die Datei schreiben kannst musst du sie auf jeden Fall speichern.
Anschlissend kannst ud mit der OPEN Methode die Datei im Speichern öffnen und mit PRINT deinen Text reinschreiben
Open "c:\demo.txt" For Output As #1
For i = 1 To 10
Write #1, "Deinen Text"
Next i
Close #1
Gruss Rainer
AW: txt-Datei downloaden, ergänzen, speichern
04.02.2009 21:45:00
bully
Hallo Rainer,
das müsste so eigentilch funktionieren. Nur habe ich mit dem Text ein Problem. Die Datei enthält Datensätze die mit Tabs getrennt sind. Meine Einträge sind jeweils bei Tab 5,6 und 7.
Die Werte können wie folgt aussehen:
bei Tab 5 = 73
bei Tab 6 = 2245
bei Tab 7 = BZ1
Gruss bully
Anzeige
AW: txt-Datei downloaden, ergänzen, speichern
04.02.2009 22:03:59
Ramses
Hallo
Kein Problem

Sub test()
Dim i
Open "D:\demo.txt" For Output As #1
For i = 1 To 10
Print #1, vbTab & vbTab & vbTab & "Deinen Text"
Next i
Close #1
End Sub


Verwende Print,...dann gibt es keine unerwünschten ""
Gruss Rainer

AW: txt-Datei downloaden, ergänzen, speichern
04.02.2009 22:31:00
bully
Hallo Rainer,
ich habe das ganze nun eingebaut und getestet. So setzt er mir bei allen zehn Datensäzen die gleichen Werte ein. Die im letzten Posting angegebenen Werte für Tab 5, 6 und 7 sind aber in allen Datensätze anders. Ist das auch machbar?
Gruss bully
AW: txt-Datei downloaden, ergänzen, speichern
04.02.2009 23:01:27
Ramses
Hallo
"...Ist das auch machbar? ..."
Klar,... aber ich bin kein Hellseher
Woher kommen denn die Daten oder wo stehen sie ?
Die musst du halt dynamisch einbauen anstelle von "Deinen Text"
Grus Rainer
Anzeige
AW: txt-Datei downloaden, ergänzen, speichern
04.02.2009 23:40:00
bully
Hallo Rainer,
es hat geklappt, ich konnte die Werte einbauen.
Danke für deine Hilfe.
Gruss bully

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige