FileCopy Beskrivning
Kopierar en fil från en katalog till en annan.
Enkla FileCopy -exempel
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Detta kopierar filen "Test.txt" på "C: \" till D -enheten.
Om filen "Test.txt" inte finns på "C: \" kommer det att uppstå ett körtidsfel '53': Filen hittades inte.
FileCopy Syntax
I VBA Editor kan du skriva "FileCopy (" för att se syntaxen för FileCopy Statement:
FileCopy -satsen innehåller två argument:
Källa: Filnamn för fil som ska kopieras. Kan inkludera sökväg.
Destination: Stränguttryck som anger målfilnamnet. Destinationen kan innehålla katalog eller mapp och enhet.
Exempel på Excel VBA FileCopy -funktion
Testa med följande kod.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker As FileDialogDim dlgFileSaveAs som FileDialogDim strOrgFile Som strängDim strTarFile Som strängAnge dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsktdlgFilePicker.ButtonName = "Kopiera"dlgFilePicker.Title = "Välj en fil att kopiera"Om dlgFilePicker.Show = True dåstrOrgFile = dlgFilePicker.SelectedItems (1)AnnanAvsluta SubAvsluta omAnge dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Ange en mapp och skriv ett filnamn."dlgFileSaveAs.ButtonName = "Klistra in"Om dlgFileSaveAs.Show = True dåstrTarFile = dlgFileSaveAs.SelectedItems (1)AnnanAvsluta SubAvsluta omFileCopy strOrgFile, strTarFileAvsluta Sub |
När den körs visas en dialogruta "Välj en fil att kopiera" först.
Sedan bör du välja en fil att kopiera.
När du har valt en fil klickar du på knappen "Kopiera".
Därefter visas en dialogruta "Ange en mapp och skriv ett filnamn".
Du bör välja en målmapp och skriva ett filnamn.
Klicka sedan på knappen "Klistra in".
Sedan kopieras källfilen med målmappen och filnamnet.
