Text bei File schliessen löschen
23.09.2004 09:52:28
Fabienne
Ich habe ein Makro, welches mir aus einer Excel-Datei ein Textfile macht. Dieser Ablauf wird in einer anderen Excel-Datei dokumentiert. Weiss jemand den Code, den ich brauche um den Text: "Die Textdatei befindet sich in:" sowie die Anzeige des Pfades Mein_Pfad & "\" & Mein_Export, beim schliessen der Dokumentationsdatei zu löschen. So dass bei erneutem Öffnen nicht noch angezeigt wird wo die vorherige Datei abgespeichert wurde.
Merci für eure Hilfe! Gruss Fabienne
Sub Textfile()
Windows(Mein_Export1).Activate
Mein_Export = Mein_Export & ".txt"
ChDir Mein_Pfad
ActiveWorkbook.SaveAs Filename:= _
Mein_Pfad & "\" & Mein_Export, FileFormat:=xlTextPrinter, _
CreateBackup:=False
Windows("Makro_ESAComp_Datenbank.xls").Activate
Range("A13").Select
ActiveCell.FormulaR1C1 = "Bitte öffnen sie zuerst die zu verarbeitende Excel-Datei! "
Range("A24").Select
ActiveCell.FormulaR1C1 = "Die Textdatei befindet sich in: "
Range("A26").Select
ActiveCell.FormulaR1C1 = Mein_Pfad & "\" & Mein_Export
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("A26").Select
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Range("A13").Select
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
End Sub