Thema Datum  Von Nutzer Rating
Antwort
06.03.2017 09:30:12 Andreas
NotSolved
06.03.2017 11:02:10 Gast52639
NotSolved
06.03.2017 16:52:52 Andreas
NotSolved
08.03.2017 06:56:20 Kai
NotSolved
08.03.2017 07:12:37 Gast15348
NotSolved
08.03.2017 11:09:33 Andreas
NotSolved
08.03.2017 17:04:12 Gast52361
NotSolved
10.03.2017 09:40:24 Andreas
NotSolved
Rot Excel-Zellen in .txt Datei speichern
 11.03.2017 05:08:38 Kai
NotSolved
13.03.2017 08:30:39 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
11.03.2017 05:08:38		 Views:
673		 Rating:
     
Antwort:
  Ja
Thema:
Excel-Zellen in .txt Datei speichern

Hallo Andreas,

Ich habe den Code zum Schreiben des Textes in die Datei nun direkt im Code integriert. Bei mir funktioniert es. Wichtig ist folgendes:

1. Im Modul unter Extras-> Verweise die Bibliothek: Microsft Scripting Runtime aktivieren !!!

2. Die Angaben stehen in meinem Beispiel in "Tabelle2" .

3. Ich habe das Schreiben in die Dateien so eingerichtet, das neue Texte hinzugefügt wird.

 

Option Explicit

Sub createCsgFiles()

Dim fso As New Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim myArr() As String
Dim r As Integer
Dim i As Integer
Dim s As String
Dim intLastRow As Integer
Dim strFilename As String
Dim strText As String

'**********
'* WICHTIG: Unter Verweise die Bibliothek: Microsoft Scripting Runtime aktivieren !!!
'**********

'*********
'* Die zu übertragenden Texte stehen in den Spalten 1-7, der Name der Datei in Spalte 8
'*********
With Sheets("Tabelle2")
    'Letzte verwendete Zeile festlegen
    intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    'verwendeten Bereich festlegen

     
End With

For r = 1 To intLastRow

    'Speichern der Begriffe in einem Array
    For i = 0 To 6
        ReDim Preserve myArr(i)
        strText = Sheets("Tabelle2").Cells(r, i + 1).Value

        myArr(i) = Mid(strText, InStr(1, strText, Chr(34)) + 1, Len(strText) - InStr(1, strText, Chr(34)) - 1)
    Next i
     
    'Trennung der Begriffe durch ein Tab
    s = Join(myArr, vbTab)
    'Festlegen des Dateinamens
    strFilename = Sheets("Tabelle2").Cells(r, 8).Value
    'Speichern der Dateien auf dem Desktop
    Set ts = fso.OpenTextFile(Environ("UserProfile") & "\desktop\" & strFilename & ".csg", ForAppending, True)
    'Schreiben der Begriffe in die .csg-Datei
    ts.WriteLine s
    'Schließen der .csg-Datei
    ts.Close
Next r


End Sub

Ich hoffe es funktioniert nun.

 

Viele Grüße

 

Kai

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.03.2017 09:30:12 Andreas
NotSolved
06.03.2017 11:02:10 Gast52639
NotSolved
06.03.2017 16:52:52 Andreas
NotSolved
08.03.2017 06:56:20 Kai
NotSolved
08.03.2017 07:12:37 Gast15348
NotSolved
08.03.2017 11:09:33 Andreas
NotSolved
08.03.2017 17:04:12 Gast52361
NotSolved
10.03.2017 09:40:24 Andreas
NotSolved
Rot Excel-Zellen in .txt Datei speichern
 11.03.2017 05:08:38 Kai
NotSolved
13.03.2017 08:30:39 Andreas
NotSolved