Daten löschen wenn sie in einen Ordner verschoben wurden :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Daten löschen wenn sie in einen Ordner verschoben wurden

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

tdnum
Newbie
Newbie

Anmeldedatum: 19.10.2007
Beiträge: 5

Verfasst am: 09.04.2008, 09:19

Hallo zusammen,

ich habe da ein Problem mit einer Excel Datei. Wir wandeln hier eine Textdatei um, sortieren sie und legen sie dann in einen anderen Ordner ab. Nun würde ich gerne nachdem die Datei in den anderen Ordner abgelegt ist, die Ursprüngliche Datei löschen.

Kann mir da jemand helfen?

Der Code denn wir bis jetzt benutzen sieht im Moment so aus:

[i]Sub einlesen_ScopeCheck()

Range("A1").Select
ChDir "I:\ScopeCheck"
Workbooks.OpenText FileName:="I:\ScopeCheck\output.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 3), Array(4, _
2), Array(18, 2), Array(30, 2), Array(40, 2), Array(50, 2), Array(60, 2), Array(70, 2), _
Array(80, 2))
Columns("A:I").Select
Selection.Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Windows("Messmaschinen_SPR2.xls").Activate
Sheets("Tabelle2").Select
Range("A1").Select
Selection.Copy
Windows("output.txt").Activate
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
ChDir "S:\Transfer"
ActiveWorkbook.SaveAs FileName:="S:\Transfer\qws2.txt" _
, FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
Range("G16").Select
Sheets("Messmaschinen_SPR2").Select
End Sub[/i]

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 294
Wohnort: Kiel

Verfasst am: 09.04.2008, 15:05

tdnum hat Folgendes geschrieben:

Nun würde ich gerne nachdem die Datei in den anderen Ordner abgelegt ist, die Ursprüngliche Datei löschen.

Das ist eigentlich ganz simpel: Die Routine "Objekt.DeleteFile Dateispez[, erzwingen]" hilft Dir da weiter. Diese mußt du nur mit dem Dateinamen füttern und *schwupps* wech isse.

Code:

deletefile "I:\ScopeCheck\output.txt"

Die Zeile wäre wohl nach dem "ActiveWindow.Close" (viertletzte Zeile in Deinem Code) am besten aufgehoben.

Ich würde aber dringendst empfehlen, in Deiner Routine dann noch mit "ON ERROR GOTO ..." ein Konstrukt einzubauen, das Fehler beim Verarbeiten / Speichern abfängt. Ansonsten geht die Verarbeitung vielleicht schief oder das Ergebnis kann nicht gespeichert werden, die Datei wird aber trotzdem gelöscht. Das könnte fatal sein...

Gruß, Michael

tdnum
Newbie
Newbie

Anmeldedatum: 19.10.2007
Beiträge: 5

Verfasst am: 10.04.2008, 07:01

Hallo,

danke für die schnelle Hilfe, ich habe das mit dem Code mal ausprobieren und bekomme jetzt einen Fehlermeldung :[i]Sub oder Function nicht definiert[/i]. Kannst Du mir da noch mal helfen, da ich doch noch nicht so viel Ahnung habe.

Gruß Ingo

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 294
Wohnort: Kiel

Verfasst am: 10.04.2008, 09:47

tdnum hat Folgendes geschrieben:

Hallo,

danke für die schnelle Hilfe, ich habe das mit dem Code mal ausprobieren und bekomme jetzt einen Fehlermeldung :Sub oder Function nicht definiert. Kannst Du mir da noch mal helfen, da ich doch noch nicht so viel Ahnung habe.

Gruß Ingo

Sorry, ich war da wohl etwas zu knapp. Außerdem hatte ich noch einen "." vergessen, wodurch es noch etwas problematischer wurde.

Um das "deletefile" nutzen zu können, mußt Du es als Methode eines Objekts aufrufen. Das Objekt ist ein "FileSystemObject". In der OH findet man dazu als Beispiel:

Code:

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("Dies ist ein Test.")
a.Close

Dementsprechend geht:

Code:

Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile "I:\ScopeCheck\output.txt"

Gruß, Michael

tdnum
Newbie
Newbie

Anmeldedatum: 19.10.2007
Beiträge: 5

Verfasst am: 10.04.2008, 10:36

Danke !!!

Funktioniert super.

Gruß Ingo

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Makro soll relativen Bereich mit Date...	Frederic	Microsoft Excel Hilfe	1	29.08.2008, 16:12
	Wenn Abfrage	saschathede	Microsoft Excel Hilfe	3	29.08.2008, 10:19
	Daten von einem Blatt zum nächsten ko...	miriki	Microsoft Excel Hilfe	15	28.08.2008, 13:45
	wenn dann	martin18670	Microsoft Excel Hilfe	1	27.08.2008, 23:28
	Zelle löschen aber nicht die Formel	Paraneuros	Microsoft Excel Hilfe	1	27.08.2008, 15:18

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de