Herbers Excel-Forum - das Archiv
Abspeichern als txt klappt nicht
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