Opis FileCopy
Kopira datoteku iz jednog direktorija u drugi.
Jednostavni primjeri FileCopy
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Ovo će kopirati datoteku "Test.txt" na "C: \" na pogon D.
Ako datoteka "Test.txt" ne postoji na "C: \", pojavit će se pogreška tijekom izvođenja '53': Datoteka nije pronađena.
Sintaksa FileCopy
U VBA Editor -u možete upisati "FileCopy (" da vidite sintaksu izjave FileCopy:
Naredba FileCopy sadrži 2 argumenta:
Izvor: Naziv datoteke za kopiranje. Može uključivati put.
Odredište: String izraz koji navodi naziv ciljne datoteke. Odredište može uključivati direktorij ili mapu te pogon.
Primjeri Excel VBA FileCopy funkcije
Molimo testirajte sa sljedećim kodom.
| 123456789101112131415161718192021222324252627282930 | Pod datotekaCopy_Example ()Zatamni dlgFilePicker kao FileDialogDim dlgFileSaveAs FileDialogDim strOrgFile As StringDim strTarFile As StringPostavi dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = NetačnodlgFilePicker.ButtonName = "Kopiraj"dlgFilePicker.Title = "Molimo odaberite datoteku za kopiranje"Ako je dlgFilePicker.Show = Tačno tadastrOrgFile = dlgFilePicker.SelectedItems (1)DrugoIzlaz iz podvZavrši akoPostavi dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Molimo označite mapu i upišite naziv datoteke."dlgFileSaveAs.ButtonName = "Zalijepi"Ako je dlgFileSaveAs.Show = Tačno tadastrTarFile = dlgFileSaveAs.SelectedItems (1)DrugoIzlaz iz podvZavrši akoFileCopy strOrgFile, strTarFileKraj podm |
Pokrenuvši ga, prvo će se prikazati dijaloški okvir "Molimo odaberite datoteku za kopiranje".
Zatim biste trebali odabrati datoteku za kopiranje.
Nakon odabira datoteke, kliknite gumb "Kopiraj".
Zatim će se prikazati dijaloški okvir "Molimo označite mapu i upišite naziv datoteke".
Trebali biste odabrati odredišnu mapu i napisati naziv datoteke.
Nakon toga kliknite gumb "Zalijepi".
Zatim će se izvorna datoteka kopirati s odredišnom mapom i nazivom datoteke.
