Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Erzeugung einer Datei: Text - Ausgabe

Erzeugung einer Datei: Text - Ausgabe
03.08.2003 22:26:04
Holger Nikisch
Hi,

ich habe ein kleines Problem.
Ich habe ein Makro entworfen, es soll eine Text-Datei geschrieben werden mit dem Inhalt einer Tabelle.

Der Inhalt der Tabelle besteht aus 3 Spalten und n Zeilen.
z.B. |_10_|_20_|_30_|

Das Problem besteht darin das ich in der Text - Ausgabe nicht wie unten
beschrieben ":" sondern ein Tab haben möchte. Leider weiß ich nicht was ich anstatt ":" für Tab eingeben muß.
Ist: 10;20;30
Soll: 10 20 30

.
.
Open "c:\eigene Dateien\Artikel.txt" for Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & ":"
Next
Print #1,s
s = ""
Next
Close #1



Danke schon im vorraus.

mfg

Holger Nikisch

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erzeugung einer Datei: Text - Ausgabe
03.08.2003 22:29:50
MikeS
Hi Holger,

vielleicht hilft Dir ja das weiter:

in VBA erzeugst Du mit Chr(10) einen Zeilenvorschub.

Ciao Mike


AW: Erzeugung einer Datei: Text - Ausgabe
03.08.2003 23:01:33
Ramses
Hallo Holger,

Chr$(9) erzeugt ein Tabulatorzeichen. Dein Code müsste also lauten:

s = s & Zelle.Text & Chr$(9)

Gruss Rainer


AW: Erzeugung einer Datei: Text - Ausgabe
03.08.2003 23:02:29
Jörg Gradert
Hallo Holger,
ich habe keine Ahnung von VBA
?
Print#1, s; Tab
?
gebe in der Visual Basic Hilfe # als Suchbegriff auf der Karteikarte Antwortasistent ein.
So ist es bei mir in 9.0 2000.
Dann kommt in der Liste Hilfe zu Print# mit folgenden Beispielen

Print #-Anweisung (Beispiel)
In diesem Beispiel wird die Print #-Anweisung zum Schreiben von Daten in eine Datei verwendet.

Open "DATEI1" For Output As #1 ' Datei zur Ausgabe öffnen.
Print #1, "Nur ein Test" ' Text in Datei schreiben.
Print #1, ' Leerzeile in Datei schreiben.
Print #1, "Bereich1"; Tab ; "Bereich2" ' 2 Ausgabebereiche ausgeben.
Print #1, "Hallo" ; " " ; "Welt" ' Zeichenfolgen mit Leerzeichen
' trennen.
Print #1, Spc(5) ; "5 Leerzeichen " ' 5 führende Leerzeichen.
Print #1, Tab(10) ; "Hallo" ' Wort in Spalte 10 ausgeben.

' Boolesche, Datums-, Null- und Fehlerwerte zuweisen.
Dim Bool1, Datum1, Null1, Fehler1
Bool1 = False : Datum1 = #1. Juli 1965# : Null1 = Null
Fehler1 = CVErr(32767)
' True, False, Null und Error werden in der Sprache ausgegeben, die
' im Gebietsschema des Systems eingestellt wurde. Datumsangaben
' werden im voreingestellten kurzen Datumsformat geschrieben.
Print #1, Bool1 ; " ist ein boolescher Wert"
Print #1, Datum1 ; " ist ein Datum"
Print #1, Null1 ; " ist ein Nullwert"
Print #1, Fehler1 ; " ist ein Fehlerwert"
Close #1 ' Datei schließen.

Gruss Jörg


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige