Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

In anderen Ordner speichern und vorherige Datei löschen





Frage

Hallo! Ich arbeite an einer Makrolösung für eine Routineaufgabe Der Grundgedanke ist folgender: eine text-Datei wird in Excel geöffnet, entsprechend umformatiert und soll als .xls in einem anderem Ordner als die text-Datei gespeichert werden. Nach dem Vorgang soll die text-Datei automatisch gelöscht werden. Mein Problem beginnt ab dem Zeitpunkt des speicherns: Wie ändere ich die speicher-directory? Wie bringe ich das Makro dazu das Text-file automatisch zu entfernen? Vielleicht kann mir wer helfen... vielen dank im vorraus! Lg, Rudi

Antwort 1 von rudigus

Zu Problem 1:
Wenn ich die Variable fFile im "Pfadteil" angebe entsteht ein Runtime-Error
Sobald ich fFile in "" setze funktioniert das ganze, fFile wird jedoch nicht als Variable erkannt...

Sub OpenConvert()

Dim fFile As Variant
fFile = Application.GetOpenFilename()
If fFile = False Then Exit Sub

´save

Dim strFileName As String

strFileName = "Z:\DATA\RHF-TEST\BUP\RG\XLSDATA" & "\" & fFile & Format(Now, "dd.mm.yyyy") & ".xls"

ThisWorkbook.SaveCopyAs Filename:=strFileName

    
End Sub


Danke im Voraus,
R.

Antwort 2 von CaroS

Hallo Rudi,

ich halte schon den Grundgedanken für falsch. Eine Text-Datei wird nicht in Excel geöffnet, sie wird bestenfalls in Excel importiert, und zwar entweder mit Hilfe von Standardwerten, mit Hilfe des Textkonvertierungsassistenten oder mit einem Makro. Genauer gesagt wird auch nicht die Textdatei importiert, es werden nur die Daten aus der Textdatei in Excel importiert.

Da das Löschen einer Datei eigentlich eine Betriebssystemaufgabe ist, Excel aber ein Anwendungsprogramm für eine ganz andere Art von Dateien, frage ich muss, ob das sein muss, Excel für solche Dinge zu "missbrauchen". Ich glaube zwar, dass es irgendwie gehen könnte, aber einen Lösungsansatz habe ich so auf die Schnelle nicht parat.

Gruß,
CaroS

Antwort 3 von rudigus

Hi,
ich ergänze die Grundidee:
Es handelt sich dabei um Messdaten, die per "Text to Columns..." in Excel importiert werden um weiterverarbeitet zu werden. Für den Vorgang gibt es bereits ein Makro.
Der Vorgang soll jedoch weiter automatisiert werden, indem die Messdaten als .xls in einem Ordner gespeichert werden und die Rohdaten aus dem anderen gelöscht werden.

Ich wollte vorhin gleich zum wesendlichen übergehen und habe mich falsch bzw. unzureichend ausgedrückt.

Lg,
Rudi

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: