FileCopy Beschreibung
Kopiert eine Datei von einem Verzeichnis in ein anderes.
Einfache FileCopy-Beispiele
| 1 | DateiKopieren "C:\Test.txt" "D:\" |
Dadurch wird die Datei „Test.txt“ von „C:\“ auf das Laufwerk D kopiert.
Wenn die Datei „Test.txt“ auf „C:\“ nicht existiert, tritt ein Laufzeitfehler „53“ auf: Datei nicht gefunden.
FileCopy-Syntax
Im VBA-Editor können Sie „FileCopy(“ eingeben, um die Syntax für die FileCopy-Anweisung anzuzeigen:
Die FileCopy-Anweisung enthält 2 Argumente:
Quelle: String-Name der zu kopierenden Datei. Kann Pfad enthalten.
Ziel: Zeichenfolgenausdruck, der den Zieldateinamen angibt. Das Ziel kann ein Verzeichnis oder einen Ordner und ein Laufwerk umfassen.
Beispiele für Excel VBA FileCopy-Funktion
Bitte testen Sie mit dem folgenden Code.
| 123456789101112131415161718192021222324252627282930 | UnterdateiCopy_Example()Dim dlgFilePicker als FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile As StringDim strTarFile As StringSet dlgFilePicker = Application.FileDialog(msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Kopieren"dlgFilePicker.Title = "Bitte wählen Sie eine Datei zum Kopieren aus"Wenn dlgFilePicker.Show = True ThenstrOrgFile = dlgFilePicker.SelectedItems(1)AndersAbo beendenEnde WennSet dlgFileSaveAs = Application.FileDialog(msoFileDialogSaveAs)dlgFileSaveAs.Title = "Bitte geben Sie einen Ordner an und geben Sie einen Dateinamen ein."dlgFileSaveAs.ButtonName = "Einfügen"Wenn dlgFileSaveAs.Show = True ThenstrTarFile = dlgFileSaveAs.SelectedItems(1)AndersAbo beendenEnde WennFileCopy strOrgFile, strTarFileEnd Sub |
Wenn es ausgeführt wird, wird zunächst ein Dialogfeld "Bitte wählen Sie eine zu kopierende Datei" angezeigt.
Dann sollten Sie eine Datei zum Kopieren auswählen.
Nachdem Sie eine Datei ausgewählt haben, klicken Sie bitte auf die Schaltfläche „Kopieren“.
Dann erscheint ein Dialog „Bitte geben Sie einen Ordner an und geben Sie einen Dateinamen ein“.
Sie sollten einen Zielordner auswählen und einen Dateinamen eingeben.
Klicken Sie anschließend auf die Schaltfläche „Einfügen“.
Anschließend wird die Quelldatei mit dem Zielordner und dem Dateinamen kopiert.
