Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile zu csv-Datei hinzufügen

Forumthread: Zeile zu csv-Datei hinzufügen

Zeile zu csv-Datei hinzufügen
11.11.2003 16:25:02
Andi
Hallo Forum,

ich möchte einer bestehenden csv-Datei eine Zeile hinzufügen ohne die Datei neu schreiben zu müssen.
Eigentlich sollte es so funktionieren, oder?

Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(EigeneMod_dateipfad, ForAppending, TristateFalse)
f.Write NeuerEintrag
f.Close

Aber immer in der 3. Zeile kommt falsche Prozeduraufruf ... was mach ich falsch?
Oder gibt es noch ne bessere Methode eine bestehende Datei zu erweitern?

LG
Andi
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: So gehts einfacher
11.11.2003 17:12:21
Andi
Dim sFile As String
Dim F As Integer

sFile = App.Path & "\DeinFile.txt"
F = FreeFile
Open sFile For Append As #F
Print #F, "Dein Text"
Close #F
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zeile zu csv-Datei hinzufügen in Excel


Schritt-für-Schritt-Anleitung

Um einer bestehenden csv-Datei eine Zeile hinzuzufügen, ohne die Datei neu zu schreiben, kannst du den folgenden VBA-Code verwenden. Dieser Code öffnet die Datei im Append-Modus und fügt den gewünschten Text hinzu.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu (Einfügen > Modul).

  3. Kopiere den folgenden Code in das Modul:

    Sub ZeileHinzufuegen()
       Dim fs As Object
       Dim f As Object
       Dim NeuerEintrag As String
       Dim EigeneMod_dateipfad As String
    
       EigeneMod_dateipfad = "C:\Pfad\Zu\DeinerDatei.csv"  ' Passe den Dateipfad an
       NeuerEintrag = "Dein neuer Text"  ' Der Text, den du hinzufügen möchtest
    
       Set fs = CreateObject("Scripting.FileSystemObject")
       Set f = fs.OpenTextFile(EigeneMod_dateipfad, 8, False)  ' 8 steht für ForAppending
       f.Write NeuerEintrag & vbCrLf  ' Neuer Eintrag mit Zeilenumbruch
       f.Close
    End Sub
  4. Ändere den EigeneMod_dateipfad, um den Pfad zu deiner CSV-Datei anzugeben.

  5. Führe das Makro aus, um die Zeile hinzuzufügen.


Häufige Fehler und Lösungen

  • Fehler: Falscher Prozeduraufruf

    • Dieser Fehler tritt häufig auf, wenn der angegebene Dateipfad nicht korrekt ist. Überprüfe, ob der Pfad zur CSV-Datei wirklich existiert.
  • Lösung: Schreibrechte prüfen

    • Stelle sicher, dass du Schreibrechte für die Datei hast. Wenn die Datei schreibgeschützt ist, kann der Code die Zeile nicht hinzufügen.

Alternative Methoden

Es gibt mehrere Methoden, um eine Zeile zu einer CSV-Datei hinzuzufügen:

  1. Öffnen mit Notepad

    • Du kannst die CSV-Datei auch mit einem Texteditor wie Notepad öffnen, den neuen Text manuell hinzufügen und die Datei speichern.
  2. Excel-Funktionen

    • Eine andere Möglichkeit wäre, die Daten in Excel zu bearbeiten und dann die gesamte Tabelle als CSV zu exportieren. Dies ist allerdings nicht ideal, wenn du nur eine Zeile hinzufügen möchtest.
  3. Power Query

    • Verwende Power Query, um Daten aus verschiedenen Quellen zu kombinieren und zu transformieren. Dies könnte nützlich sein, wenn du regelmäßig Daten aktualisieren musst.

Praktische Beispiele

  • Beispiel 1: Hinzufügen von Benutzerdaten

    Angenommen, du möchtest einer CSV-Datei mit Benutzerdaten einen neuen Datensatz hinzufügen:

    NeuerEintrag = "Max Mustermann, max@example.com, 30"
  • Beispiel 2: Mehrere Zeilen hinzufügen

    Wenn du mehrere Zeilen hinzufügen möchtest, kannst du eine Schleife verwenden:

    For i = 1 To 5
       f.Write "Neuer Eintrag " & i & vbCrLf
    Next i

Tipps für Profis

  • Nutze vbCrLf für einen sauberen Zeilenumbruch, um sicherzustellen, dass die CSV-Datei korrekt formatiert bleibt.
  • Teste den Code zuerst mit einer Kopie deiner CSV-Datei, um sicherzustellen, dass keine Daten verloren gehen.
  • Halte deine Skripte modular, damit du sie in verschiedenen Projekten wiederverwenden kannst.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die Datei existiert, bevor ich eine Zeile hinzufüge?
Du kannst den FileExists-Check im Code verwenden, um sicherzustellen, dass die Datei vorhanden ist, bevor du versuchst, eine Zeile hinzuzufügen.

2. Kann ich auch eine Excel-Datei anstelle einer CSV-Datei verwenden?
Ja, du kannst auch mit Excel-Dateien arbeiten, jedoch musst du dafür andere Methoden verwenden, wie das Öffnen der Datei über Workbooks.Open und das Hinzufügen von Daten in die Zellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige