Re: Datei verschieben
24.09.2002 19:53:40
Roland Köstring
Hallo Skyglider,
ich entschuldige mich für massiven Pfusch am Bau! Ich habe
die Sache einfach nicht ordentlich getestet. Jetzt aber gleich
zwei Versionen, die beide funktionieren:
(Bitte in ein Modul einstellen, wegen des Declare)' Declare für Lösung 2
Declare Function CopyFile& Lib "kernel32" Alias "CopyFileA" _
(ByVal Kopierdatei As String, ByVal Neuedatei As String, _
ByVal DateischonDa As Long)
Sub a() ' Lösung 1
'
' Bei dieser Lösung muss erst ein FileSystemObject erzeugt werden,
' das hatte ich übersehen
'
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
For I = 1 To 100
If Cells(I, 3) > 3 And Cells(I, 3) < 6 Then
Dateiname = Cells(I, 1) & "-_" & Cells(I, 2) & ".xls"
fs.CopyFile "C:\in Arbeit\" & Dateiname, "C:\gültig\" & Dateiname
Kill "C:\in Arbeit\" & Dateiname
End If
Next I
End Sub
Sub b()
'
' Lösung 2 , abgekupfert von Reinke,Held, ...
' Microsoft Excel 2000 Programmierung, S.644
' (ein sehr empfehlenswertes Buch!)
'
' Diese Lösung benötigt das Declare Statement oben, ist aber dann m.E. eleganter
'
Dim rtn As Integer
For I = 1 To 100
If Cells(I, 3) > 3 And Cells(I, 3) < 6 Then
Dateiname = Cells(I, 1) & "-_" & Cells(I, 2) & ".xls"
rtn = CopyFile("C:\in Arbeit\" & Dateiname, "C:\gültig\" & Dateiname, False)
Kill "C:\in Arbeit\" & Dateiname
End If
Next I
End Sub
So, jetzt hoffe ich, dass es passt!
Gruss Roland