txt.Datei erstellen

Forumthread: txt.Datei erstellen

txt.Datei erstellen

23.07.2002 15:00:07

Dirk

Hallo User,

ich habe mal eine Frage?
ist es möglich per VBA eine Textdatei zu erstellen,
wobei der Name für die Textdatei aus einer Zelle
kommen soll.
z.B A1 = Test.txt
jetzt soll auf knopfdruck eine Textdatei erstellt werden
die Test.txt heißt.

mfg Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: txt.Datei erstellen

23.07.2002 15:05:53

Torben J.

probiers mal damit:

dim ws as Dim ws As Worksheet
dim myDatei as string

myDatei = ws.Range("A1")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\FSO\" & myDatei & ".txt")

Re: txt.Datei erstellen

25.07.2002 22:06:21

Dirk

Hallo Torben,

danke für deinen tipp
hat prima geklappt

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Textdatei mit einem Namen aus einer Zelle in Excel zu erstellen, kannst Du das folgende VBA-Skript verwenden. Diese Anleitung setzt voraus, dass Du bereits ein grundlegendes Verständnis von VBA hast.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklicke im Projektfenster auf "VBAProject (DeineDatei.xlsm)", wähle "Einfügen" und dann "Modul".

Kopiere und füge den folgenden Code ein:

Sub txtDateiErstellen()
   Dim ws As Worksheet
   Dim myDatei As String
   Dim objFSO As Object
   Dim objFile As Object

   ' Setze das Arbeitsblatt
   Set ws = ThisWorkbook.Sheets(1) ' Ändere die Zahl je nach Blatt

   ' Hole den Dateinamen aus Zelle A1
   myDatei = ws.Range("A1").Value

   ' Erstelle die Textdatei
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objFile = objFSO.CreateTextFile("C:\FSO\" & myDatei & ".txt", True)

   ' Optionale Inhalte in die Datei schreiben
   objFile.WriteLine "Inhalt der Textdatei"
   objFile.Close
End Sub

Ändere den Pfad in der Zeile Set objFile = objFSO.CreateTextFile("C:\FSO\" & myDatei & ".txt", True) zu dem gewünschten Speicherort auf Deinem Computer.
Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus: Drücke ALT + F8, wähle txtDateiErstellen und klicke auf "Ausführen".

Häufige Fehler und Lösungen

Fehler: "Datei kann nicht erstellt werden"
Lösung: Überprüfe den angegebenen Speicherort und stelle sicher, dass Du die erforderlichen Berechtigungen hast.
Fehler: "Objekt nicht gefunden"
Lösung: Stelle sicher, dass die Referenz zu Scripting.FileSystemObject korrekt ist. Gehe zu "Extras" > "Verweise" und aktiviere die Microsoft Scripting Runtime.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst Du auch die Funktionen von Excel nutzen, um Textdateien zu exportieren:

Speichern unter: Wähle "Datei" > "Speichern unter" und wähle das Format "Textdatei (*.txt)".
Power Query: Importiere Daten in Excel und exportiere sie als .txt-Datei mit Power Query.

Praktische Beispiele

Hier sind einige Beispiele, wie Du verschiedene Textdateien erstellen kannst:

Leere Datei erstellen:

Set objFile = objFSO.CreateTextFile("C:\FSO\leereDatei.txt", True)
objFile.Close

Textdatei mit Daten aus mehreren Zellen:

objFile.WriteLine ws.Range("A1").Value
objFile.WriteLine ws.Range("A2").Value

Tipps für Profis

Verwende Error Handling in Deinem VBA-Code, um potenzielle Fehler zu erfassen und zu behandeln.

On Error GoTo FehlerHandler
' Dein Code hier
Exit Sub
FehlerHandler:
  MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

Experimentiere mit CSV-Dateien: Manchmal ist es praktischer, eine CSV-Datei zu erstellen, die in Excel leicht importiert werden kann.

FAQ: Häufige Fragen

1. Was ist eine .txt Datei?
Eine .txt Datei ist ein einfaches Textdokument, das nur unformatierten Text enthält. Es kann von nahezu jedem Text-Editor geöffnet werden.

2. Kann ich die Textdatei in einem anderen Format speichern?
Ja, Du kannst auch andere Formate wie .csv oder .log verwenden, indem Du den Dateinamen und die Endung entsprechend änderst.

Beliebteste Forumthreads (12 Monate)

Forumthread: txt.Datei erstellen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Textdatei mit Excel VBA erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

txt.Datei erstellen

Forumthread: txt.Datei erstellen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Textdatei mit Excel VBA erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread