Abspeichern als txt klappt nicht

• Abspeichern als txt klappt nicht von Micha vom 27.10.2003 14:12:55
  • AW: Filtype mitgeben? - von Nike am 27.10.2003 14:19:11
    • AW: Filtype mitgeben? - von Micha am 27.10.2003 14:29:49
      • AW: Filtype mitgeben? - von Nike am 27.10.2003 14:32:51

Betrifft: Abspeichern als txt klappt nicht
von: Micha
Geschrieben am: 27.10.2003 14:12:55
Hallo habe einen Modul der mir die Tabelle kopiert und ohne VBA Code abspeichert.
Wenn jetzt auswähle ich will es als txt abspeichern dann steht nur wirres Zeug im txt File. Warum?
Es sollte so wie die excel tabelle ausschauen.
Hier der Modul:

Sub Speichern()
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Dateiname = Application.GetSaveAsFilename _
("Werkstoffname", "Textdateien (*.txt),*txt,Micrsoft Excel-Dateien (*.xls),*.xls")
ActiveWorkbook.SaveAs Filename:=Dateiname
ActiveWorkbook.Close savechanges:=False
Range("H5").Select
Application.ScreenUpdating = True
End Sub

Betrifft: AW: Filtype mitgeben?
von: Nike
Geschrieben am: 27.10.2003 14:19:11
Hi,
versuchs mal so:
ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlText

Bye

Nike

Betrifft: AW: Filtype mitgeben?
von: Micha
Geschrieben am: 27.10.2003 14:29:49
Danke! Klappt!
Weisst du vielleicht noch wie das txt und/oder das xls File das dann gespeichert wird automatisch an eine Email angehängt wird die sich nach dem abspeichern öffen soll?

Betrifft: AW: Filtype mitgeben?
von: Nike
Geschrieben am: 27.10.2003 14:32:51
Hi,
das hängt wohl vom E-Mail Client ab ;-)
Im Zweifel mal im Excel-FAQ nach Outlook oder so suchen...

Bye

Nike