Excelfile in Textdatei umschreiben
10.09.2004 09:08:09
Fabienne
Hab noch mal ne Frage....
Ich habe Probleme beim Konvertieren eines .xls Files in ein .txt File!
Das mit einem Makro erstellte Excelfile ist einwandfrei, aber wenn ich es wiederum per Makro in ein Textfile schreiben will, erscheint jede Zeile mit Komma (Excel) im Textfile in Hochkommas. Und die kann ich nicht gebrauchen!
Merci für eure Hilfe, krieg das alleine wohl nie raus!
Excelfile:
X_t = 1170000000
X_c = 195000000
Y_t = 35000000
Y_c = 80000000
S = 32000000
X_eps,t = 0.0195
X_eps,c = 0.00325
Y_eps,t = 0.000636363636363636
Y_eps,c = 0.00145454545454545
S_eps = 0.02
Z_t = 0
Z_c = 0
R = 0
Q = 0
Textfile:
X_t = 1170000000
X_c = 195000000
Y_t = 35000000
Y_c = 80000000
S = 32000000
"X_eps,t = 0.0195"
"X_eps,c = 0.00325"
"Y_eps,t = 0.000636363636363636"
"Y_eps,c = 0.00145454545454545"
S_eps = 0.02
Z_t = 0
Z_c = 0
R = 0
Q = 0
Und hier noch mein Code:
Sub Textfile()
Mein_Pfad = ActiveWorkbook.Path
Mein_Export = Mein_Export & ".txt"
ChDir Mein_Pfad
ActiveWorkbook.SaveAs Filename:= _
Mein_Pfad & "\" & Mein_Export, FileFormat:=xlUnicodeText, _
CreateBackup:=False
Windows("Makro_ESAComp_Datenbank.xls").Activate
Range("A11").Select
ActiveCell.FormulaR1C1 = "Die Textdatei befindet sich in: " & Mein_Pfad & "\" & Mein_Export
End Sub