Macro nach ausfuehrung in Zieldatei loeschen?
buliwyf
ich lasse ueber ein Auto_open ein txt file in excel importieren, aufbereiten und dieses dann unter einem anderen dateinamen abspeichern.
Der auto_open macro der dies vollfuehrt bleibt aber leider in der Zieldatei vorhanden was nicht sein soll?
Wie mache ich denn das, das dieser Macro dann in der Zieldatei nicht mehr vorhanden ist?
bisher sieht mein Sub so aus.
Sub Auto_open()
Dim strDatei As String
strDatei = "Bestellung_" & Format(Date, "dd.mm.yyyy") & ".xls"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\bestellung.txt", Destination:=Range("A1"))
.Name = "01.06.2011"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0"
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "KDNr"
Range("B1").Select
ActiveCell.FormulaR1C1 = "EAN"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Titel"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Stueckzahl"
Range("E1").Select
Columns("D:D").EntireColumn.AutoFit
ActiveCell.FormulaR1C1 = "AuftragsNr"
Range("E2").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\user\Eigene Dateien\Winline\Winline_Abfragen\ _
Bestellungen\" & strDatei
End Sub