Problem beim ausschneiden und spreichern
11.12.2012 20:36:32
kurt
ich habe mal gesucht und dieses Makro gefunden.
1. Es soll die Datei ausgeschnitten werden und in das
andere Laufwerk gesetzt werden.
Jetzt das Problem:
Wenn die Datei im Ziel Pfad schon vorhanden ist, kommt Fehlermeldung.
Es soll aber dann einfach die alte Datei überschrieben werden.
Sub Datei_ausschneiden()
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String
Dim qbeide As String
qFile = "Test.xls"
qFolder = "F:\Lager\Möbel\Gruppe\"
qbeide = "F:\Lager\Möbel\Gruppe\Test.xls"
tFolder = "C:\Lager\Möbel\Gruppe\"
'Kill tFolder & qFile
Set myFSO = CreateObject("Scripting.FileSystemObject")
''''myFSO.movefile qFolder & qFile, tFolder & qFile
If Dir(qbeide) = "" Then
MsgBox "gibts nicht"
Else
MsgBox "gibts" 'gibts auf F
myFSO.movefile qFolder & qFile, tFolder & qFile
End If
'Alternativ kopieren
'myFSO.copyfile qFolder & qFile, tFolder & qFile, True
End Sub