Thema: Einige Zeilen in einer sequentiellen Datei ersetzen

Home

Gruppe

Extern

Problem

Wie kann ich mehrere Zeilen einer sequentiellen Textdatei durch Zellinhalte eines Excel-Arbeitsblattes ersetzen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub CreateFile()
   Dim rng As Range
   Dim iFile As Integer, iRow As Integer, iCol As Integer
   Dim sFile As String, sTxt As String
   sFile = Application.Path & "\texttest.txt"
   iFile = FreeFile
   Open sFile For Output As iFile
   For iRow = 1 To 10
      For iCol = 1 To 5
         sTxt = sTxt & "Zeile" & iRow & " - Spalte" & iCol & ","
      Next iCol
      sTxt = Left(sTxt, Len(sTxt) - 1)
      Print #iFile, sTxt
      sTxt = ""
   Next iRow
   Close
   Workbooks.OpenText _
      Filename:=sFile, _
      DataType:=xlDelimited, _
      tab:=False, _
      semicolon:=False, _
      comma:=True, _
      Space:=False, _
      other:=False
   Columns.AutoFit
   MsgBox "Weiter"
   For Each rng In ThisWorkbook.Worksheets("Tabelle1") _
      .Range("A1:E10").Cells
      If Not IsEmpty(rng) Then
         Range(rng.Address).Value = rng.Value
      End If
   Next rng
   MsgBox "Weiter"
   ActiveWorkbook.Close savechanges:=False
   Kill sFile
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Text

Kursiven Text aus Zelle extrahieren	Nur Text in die Zwischenablage kopieren
Datum + Uhrzeit aus Textbox richtig in Zelle	Buchstaben an variablen Stellen im Text tauschen
Text vergl. und Untersch. farblich markieren	Abfrage ob ein Textzeichen nicht ASCII ist
Text "fest" am Bildschirm	Inhalte von einer PDF suchen und den Text kopieren
SUMMENPRODUKT soll Text zurückgeben	Summe aus Texten+Zahl mit Bedingung
alphabetische Sortierung von Ziffer+Text	Variabler Text aus Zelle in Code integrieren
Als Text gespeicherte Datumsangaben	Textbox als Variable ansprechen?
Excel Form Kontextmenue geht nicht	Absatzzeichen in Textbox und Listbox verhindern
Textformat (VBA)	Textfeld im Formular
Autom. Zelltext, der bei anklicken verschwindet	Texte aus einer Liste sammeln
aktierten Text in geöffnete Worddatei	Text zurückgeben über mehrere Tabellenblätter
UserForm TextBox mit ComboBox Datum vergleichen	teilstring aus textbox in andere Textbox
Textbox Prüfung	Text in Spalten - Performance
Userform nicht gleich in TextBox aber wie?	Text aus Zelle in Internet Seite
Zelle = Text + Formel	Textbox Multiline
Textinhalt	Abstand von Textbox bis zum unter. Rand ermitteln
Hilfetexte für Formular-Schaltflächen auf TB	Daten aus Zelle in Text einlesen und leere löschen
Mehrere Argumente Text und Zahl	Daten aus Listbox in Textbox einlesen und zurück i
Zahlenformatierung in einem Textfeld	Zeilen löschen in denen Text mit best. Farbe steht
TextBox auf Tabellenblatt	Hyperlink zu Wordtabelle mit Textmarke
Text aus Userform in Datei übertragen	Textboxen mit Klassenmodul ansprechen
Zelle uebernimmt den Text nicht wie kopiert	Combobox, CheckBox, TextBox Formatierung
Text und aktuelles Datum in einer Zelle	Grösse Textbox vom Seitenrand abhängig machen
TextBox - nur Datum zulassen!	Tabelle in Textbox anzeigen lassen
niedrigster Wert aus Spalte in Textbox anzeigen