ich bin neu in diesem Forum und hoffe, dass mir jemand helfen kann.
Vielen Dank im Voraus.
Ich habe eine Exceltabelle in der Wochenstunden berechnet werden.
Nach der Berechnung wird mittels eines VBA Codes eine PDF erstellt und per Mail versendet. Das funktioniert auch ohne Probleme. Die Exceldatei wird mit Kalenderwoche und Jahr gespeichert und in ein Verzeichnis verschoben.
Leider klappt das Verschieben nicht so gut, mal ja, mal nein. Auf einem zweiten Rechner funktioniert es ohne Problem!?
Hier mal der Quellcode dazu:
Public Sub MoveFile() ' die gespeicherte XLS File wurd in das Sicherungverzeichnis(akt. Jahr) _
_
_
verschoben
Const sPathOld As String = "C:\STtool\Rapport\Archiv\"
Const sPathNew As String = "C:\STtool\Rapport\Archiv\Rapport"
Dim saJahr, verDatei As String
saJahr = Range("D1")
verDatei = "KW" & Range("B3") & "_" & Range("D1") & "_" & Range("L1") & "_" & Range("M1") & _
_
_
.xls"
If Dir(sPathOld & verDatei) "" And Dir(sPathNew & saJahr & "\" & verDatei) = "" Then
Name sPathOld & verDatei As sPathNew & saJahr & "\" & verDatei
ElseIf Dir(sPathNew & saJahr & "\" & verDatei) "" Then
' besteht die Datei bereits, wird diese gelöscht und ersetzt
Kill (sPathNew & saJahr & "\" & verDatei)
Name sPathOld & verDatei As sPathNew & saJahr & "\" & verDatei
End If
End Sub
Ich hoffe ich hab alle Angaben erläutert? Vielleicht kann mir jemand einen Hinweis geben. Vielen Dank
Erik