Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unter welchem Dateityp speicher ich...

Unter welchem Dateityp speicher ich...
27.08.2003 20:57:33
Tommy Beyertt
folgende textzeilen?
Spalte A| Spalte B | Spalte C |
100001|text text text|noch mehr text noch mehr text|
100002|text text text|noch mehr text noch mehr text|
100003|text text text|noch mehr text noch mehr text|

etc.
Wobei der " | " (ich nenn ihn mal grader slash (Alt Gr + >) da ich nicht weiß wie das Zeichen heißt) in der Übergabe an php als Trennzeichen erhalten bleiben muss!
Ich schreibe grade eien Helpdatei für eine Seite mit php inhalt eines Freundes und wollte dafür Excel nutzen wegen zb. einer fortlaufenden Nummerierung

Wäre schön wenn jemand was weiß
Grüße

Tommy

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

Betreff
Datum
Anwender
Anzeige
AW: Unter welchem Dateityp speicher ich...
27.08.2003 22:16:45
Michael Brüggemann
Hallo Tommy,

unter Excel 97 klappt's wie folgt und sollte in Excel 10 genau so gehen:


Sub DateiSpeichernAufUmwegen()
Dim i As Integer
Dim wks As Worksheet
' Zeiger auf auszugebendes Worksheet setzen
Set wks = ThisWorkbook.Sheets(1)
' Ausgabedatei öffnen
Open "C:\TEMP\TEST.TXT" For Output As #1
With wks
' von der ersten bis zur letzten benutzten Zeile des Sheets
For i = 1 To .UsedRange.Rows.Count
' Setze den Ausgabestring zusammen und schreibe ihn in die Datei
Print #1, .Cells(i, 1).Value & "|" & _
.Cells(i, 2).Value & "|" & _
.Cells(i, 3).Value & "|"
' nächste Zeile des Sheets
Next i
End With
' Ausgabedatei schließen
Close #1
End Sub

CIAO
Michael
Anzeige
AW: Unter welchem Dateityp speicher ich...
27.08.2003 22:26:05
Reinhard
Hi Tommy,
wie wäre so, du speicherst deine Daten in Excelzellen, ohne bar bzw. vertical Line.
Dann rufst du folgendes Makro auf, was die zellen ausliest und sie mit dem Trennungszeichen "|" in eine TextDatei schreibt:


Sub export()
Dim z As Integer 'Zeile
Dim s As Integer 'Spalte
Dim gz As String 'ganze eingelesene Zeile
Open "c:\test.txt" For Output As #1
For z = 1 To 13
gz = ""
For s = 1 To 3
gz = gz & Cells(z, s).Value & "|"
Next s
Print #1, Left(gz, Len(gz) - 1) 'normal nur: Print #1, gz"
'aber minus eins um letztes "|" abzuschneiden
Next z
Close #1
End Sub


Hab ich jetzt so entworfen für 3 Spalten und 13 Zeilen, diese Zahlen musste du nur anpassen.
Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige