Datei kopieren
27.08.2003 16:30:51
LotharP
wieder ein Problem! Is nich so das ich lästig sein will, aber schaut selbst, "WAS IST FALSCH?"
Public
Sub datkill()
Dim khier As String
Dim kada As String
Dim datt As String
datt = "PRO4100.xls"
khier = "F:\USER\KAISER\PROGNOSE\" & datt
kda = "F:\USER\ADM\EXCEL\EMPF\410\PROG\99" & datt
FileCopy Source = khier, Destination = kda
End Sub
Dabei läuft er immer auf Fehler 53, Datei nicht gefunden.
Die Pfade und der Dateiname sind aber aus dem Explorer kopiert!
Der Witz ist, das hier funktioniert:
Sub SAVEITALL()
Dim pzahl As Integer
Dim Kamnr As String
Dim Kamname As String
Dim nbname As String
Dim pathname As String
pzahl = 1
While pzahl < 15
Windows("ENGLMAK.xls").Activate
Sheets("Tabelle1").Select
Kamnr = Range("A" & pzahl & "").Value
Kamnr = "pro" & Kamnr & ".xls"
Kamname = Range("b" & pzahl & "").Value
Kamname = Kamname & ".xls"
nbname = Range("c" & pzahl & "").Value
'MsgBox kamnr
'MsgBox kamname
'MsgBox nbname
pathname = "F:\USER\ADM\EXCEL\EMPF\" & nbname & "\prog\99\" & Kamnr & ""
Kamext = "c:\sicher\" & Kamnr & ""
FileCopy Source:=pathname, Destination:=Kamext
pathname2 = "F:\USER\VS\PRUENTE\EXCEL\PROG2002\" & Kamname & ""
Kamlokal = "C:\sicher\" & Kamname & ""
FileCopy Source:=pathname, Destination:=Kamlokal
pzahl = pzahl + 1
Wend
End Sub
Ich weiss nicht wo der Fehler liegt! Ausserdem hab' ich das mal komplett gelassen um vieleicht noch nen heissen Tip zu kriegen wie ich den Zugriff auf eine Tabelle eleganter hätte lösen können?! ;-) (Mehrdimensioniertes Array??)
Gruß
LotharP