Exceldatei als Textdatei sichern, Ordner anlegen
09.08.2004 19:07:52
Milan
das folgende Makro ist dafür zuständig das eine Exceltabelle als
Text-Datei gespeichert wird.
Der Name der Datei wird aus der Zelle AA1 ausgelesen.
Vor dem speichern wird der Inhalt in AA1 gelöscht.
Es funktioniert ja auch super.
Folgende Optimierungen würden mir riesig Zeit einsparen:
1. Gleichnamigen Ordner anlegen und die Datei in den Ordner speichern.
2. Die Abfrage "Sollen Ihre Änderungen in . gespeichert werden?" umgehen.
Sub Datei_anlegen()
Dim strNam As String
strNam = Range("AA1")
If strNam <> "" Then
Range("AA1") = ""
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strNam, xlTextMSDOS
ActiveWorkbook.Close
End If
End Sub
Danke im voraus für eure Mühe.
Gruss
Milan
Anzeige