geschützte bzw gesperrte Datei kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Volker,
vielen Dank für Deinen Hinweis. Soweit hab ich nicht gedacht !!!
Hier der Code:
ChDir "\abteilungen-departments\linie_komponente_b\Werkstatt Steuerliste\"
FileCopy "\abteilungen-departments\linie_komponente_b\Werkstatt Steuerliste\Werkstattsteuerungsliste.xls", "I:\abteilungen-departments\linie_komponente_b\Verchromungsdatenbank\Daten\Werkstattsteuerliste.xls"

ChDir "\abteilungen-departments\linie_komponente_b\Verchromungsdatenbank\Daten\"
Workbooks.OpenText Filename:="Werkstattsteuerliste.xls"
Event liegt es auch daran, dass ich die Datei nach dem kopieren öffnen muss, ums sie dann wieder als CSV-Datei speichern zu können.
Hoffe Dir eine Antwort gegeben haben zu können und würde mich sehr freuen,
wenn Du mir helfen würdest.
Vielen Dank im Voraus und einen schönen Sonntag.
Gruß
Dirk

Hallo Volker,
momentan blicke ich da auch nicht mehr so ganz durch.
Am Fr hat das mit dem Pfad (ChDir "\abeitl...) funktioniert.
Jetzt muss ich noch den Laufwerksbuchstaben angeben, da sonst die ganze Zeit eine Fehlermeldung (Pfad nicht gefunden) kommt.
Hier jetzt der abgeänderte Code:
Application.DisplayAlerts = False
ChDir "I:\abteilungen-departments\linie_komponente_b\Werkstatt Steuerliste\"
FileCopy "I:\abteilungen-departments\linie_komponente_b\Werkstatt Steuerliste\Werkstattsteuerungsliste.xls", "I:\abteilungen-departments\linie_komponente_b\Verchromungsdatenbank\Daten\Werkstattsteuerliste.xls"
Application.DisplayAlerts = True

Application.DisplayAlerts = False
ChDir "I:\abteilungen-departments\linie_komponente_b\Verchromungsdatenbank\Daten\"
Workbooks.OpenText Filename:="Werkstattsteuerliste.xls"
Application.DisplayAlerts = True

Application.DisplayAlerts = False
ChDir "\abteilungen-departments\linie_komponente_b\Verchromungsdatenbank\Daten\"
ActiveWorkbook.SaveAs Filename:="\abteilungen-departments\linie_komponente_b\Verchromungsdatenbank\Daten\Werkstattsteuerliste.csv", _
FileFormat:=xlCSV, local:=True, CreateBackup:=False
Application.DisplayAlerts = True

Application.DisplayAlerts = False
Altdatei = ActiveWorkbook.Name
Workbooks(Altdatei).Close
Application.DisplayAlerts = True
Als nächstes bekomme ich die Meldung, dass die Datei die ich öffnen möchte (Werkstattsteuerliste.xls) nicht findet und fragt, ob sie richtig geschrieben ist, ob sie am richtigen Ort ist etc.
Das hab ich jetzt auch mehrmals überprüft.
Mittlerweile bin ich mir sogar sicher, dass die Datei kopiert wird, wenn nicht gerade jemand an der Datei am Arbeiten ist und damit der Zugriff verweigert wird.
Und da liegt dann mein Problem beim Öffnen der Datei.
Jetzt gerade hat alles FUNKTIONIERT, obwohl ich nichts an meinem Code geändert habe.
Selbst mit und ohne die Application.DisplayAlerts hat es nicht geklappt.
Ich verstehe die Welt nicht mehr.
Vielleichts lags jetzt daran, dass ich die Datei einmal so geöffnet und geschlossen hab.
Wie Du merkst weiß ich auch nicht weiter.
Vielleicht spinnt mein Rechner, der Server ...
Ich denke mal, dass Du bei dem Chaos mir nicht weiterhelfen kannst, oder ?
Auf jeden Fall vielen Dank dafür, dass Du mir helfen willst.
Viele Grüße
Dirk

Beliebteste Forumthreads (12 Monate)

geschützte bzw gesperrte Datei kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread