Microsoft Excel

Herbers Excel/VBA-Archiv

Excelfile in Textdatei umschreiben

Betrifft: Excelfile in Textdatei umschreiben von: Fabienne
Geschrieben am: 10.09.2004 09:08:09

Hallo!
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

  


Betrifft: AW: Excelfile in Textdatei umschreiben von: ypsilon
Geschrieben am: 10.09.2004 09:26:34

hi,
probier mal mit einem anderen fileformat
FileFormat:=xlTextPrinter
müsste deinen wünschen entsprechen
cu Micha


  


Betrifft: AW: Excelfile in Textdatei umschreiben von: Fabienne
Geschrieben am: 10.09.2004 09:37:00

Wahnsinn! Es funktioniert!!!!

Tausend Dank! Liebe Grüsse Fabienne


 

Beiträge aus den Excel-Beispielen zum Thema "Excelfile in Textdatei umschreiben"