Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.03.2017 09:30:12 |
Andreas |
|
|
|
06.03.2017 11:02:10 |
Gast52639 |
|
|
|
06.03.2017 16:52:52 |
Andreas |
|
|
|
08.03.2017 06:56:20 |
Kai |
|
|
|
08.03.2017 07:12:37 |
Gast15348 |
|
|
|
08.03.2017 11:09:33 |
Andreas |
|
|
|
08.03.2017 17:04:12 |
Gast52361 |
|
|
|
10.03.2017 09:40:24 |
Andreas |
|
|
Excel-Zellen in .txt Datei speichern |
11.03.2017 05:08:38 |
Kai |
|
|
|
13.03.2017 08:30:39 |
Andreas |
|
|
Von:
Kai |
Datum:
11.03.2017 05:08:38 |
Views:
674 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
06.03.2017 11:02:10 |
Gast52639 |
|
|
|
06.03.2017 16:52:52 |
Andreas |
|
|
|
08.03.2017 06:56:20 |
Kai |
|
|
|
08.03.2017 07:12:37 |
Gast15348 |
|
|
|
08.03.2017 11:09:33 |
Andreas |
|
|
|
08.03.2017 17:04:12 |
Gast52361 |
|
|
|
10.03.2017 09:40:24 |
Andreas |
|
|
Excel-Zellen in .txt Datei speichern |
11.03.2017 05:08:38 |
Kai |
|
|
|
13.03.2017 08:30:39 |
Andreas |
|
|