ich möchte Daten aus einer Excel-Tabelle in eine andere ggf. neue Excel-Tabelle kopieren.
Wie kann ich abbprüfen, ob es eine Datei an einem bestimmten Speicherort schon gibt.?
if dir("c:\test\MeineMappe.xls")"" then
msgbox "gibt es schon"
else
'weiterer Code
end if
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub DateiVorhanden()
Dim sFile As String
sFile = Range("A1").Value
If Dir(sFile) "" Then
MsgBox sFile & " ist vorhanden!"
Else
MsgBox sFile & " ist nicht vorhanden!"
End If
End Sub
in A1 kompletter Dateiname mit Pfad