VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datei kopieren, wenn noch nicht vorhanden

Gruppe

Datei

Bereich

Kopieren

Thema

Datei kopieren, wenn noch nicht vorhanden

Problem

Wie kann ich vor dem Kopieren einer Datei in ein anderes Verzeichnis prüfen, ob diese dort schon vorhanden ist?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub DateiKopieren()
  Dim sQuelle As String, sZiel As String
  sQuelle = Range("B1").Value
  sZiel = Range("B2").Value
  If Dir(sZiel) = "" Then
    FileCopy sQuelle, sZiel
    MsgBox "Datei wurde kopiert!"
  Else
    MsgBox "Datei war schon vorhanden!"
  End If
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Kopieren