Ausgabe als Tabstopp getrennte txt.Datei
23.11.2006 15:55:54
Goto
haben folgenden Code der in den Datenfeldern VonLBLand(1 to AnzahlKorrelationenPriv), ZuLBLand(1 to AnzahlKorrelationenPriv), Korrelationenpriv(1 to AnzahlKorrelationenPriv,1 to 1) gesammelte Informationen als csv-Datei mit drei Spalten ausgibt.
Hier die relevanten Teile des Codes:
Dim KorrDatei
Dim Filt, FilterIndex, title
Dim Zähler as Integer
Dim AnzahlKorrelationenPriv as Integer
Dim InitialFile
Filt = "Comma Separated Files (*.csv),*.csv,"
FilterIndex = 1
title = "Text"
KorrDatei = Application.GetSaveAsFilename( _
Initialfilename:=InitialFile, _
FileFilter:=Filt, FilterIndex:=FilterIndex, title:=title)
If KorrDatei = False Then
MsgBox "No file was selected!"
Exit Sub
End If
'Die Felder VonLBLand(), ZuLBLand() enthalten Text, das Feld KorrelationenPriv() numerische Werte
'*********************************
'Ausgabe der Txt-Datei
'*********************************
Open KorrDatei For Output As #1
For Zähler = 1 To AnzahlKorrelationenPriv
Write #1, VonLBLand(Zähler), ZuLBLand(Zähler), Application.Round(KorrelationenPriv(Zähler, 1), 6)
Next Zähler
Close #1
Ich würde die Ausgabe allerdings als Tabstopp-getrennte txt.Datei brauchen. Habe einfach mal versucht alles auf .txt zu ändern,
Filt = "Text (Tabstopp-getrennt) (*.txt),*.txt,"
...
InitialFile = "Dateiname & ".txt"
aber das hilft wenig, die Trennzeichen sind weiterhin Kommas. Hat jemand ein Ahnung wie man so eine Ausgabe als Tabstopp-getrennte txt.Datei macht.
Vielen Dank für die Hilfe
Goto