Opis FileCopy
Kopira datoteko iz enega imenika v drugega.
Preprosti primeri FileCopy
1 | FileCopy "C: \ Test.txt" "D: \" |
S tem boste datoteko »Test.txt« na »C: \« kopirali na pogon D.
Če datoteka »Test.txt« ne obstaja na »C: \«, se bo pojavila napaka med izvajanjem »53«: Datoteke ni mogoče najti.
Sintaksa FileCopy
V urejevalniku VBA lahko vnesete »FileCopy («), če si želite ogledati skladnjo izjave FileCopy:
Stavek FileCopy vsebuje 2 argumenta:
Vir: Ime niza datoteke za kopiranje. Lahko vključuje pot.
Cilj: Niz izraz, ki podaja ime ciljne datoteke. Cilj lahko vključuje imenik ali mapo in pogon.
Primeri funkcije Excel VBA FileCopy
Preizkusite z naslednjo kodo.
123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Zatemni dlgFilePicker kot FileDialogZatemni dlgFileSaveAs kot FileDialogZatemni strOrgFile kot nizZatemni strTarFile kot nizNastavi dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Kopiraj"dlgFilePicker.Title = "Prosimo, izberite datoteko za kopiranje"Če je dlgFilePicker.Show = True PotemstrOrgFile = dlgFilePicker.SelectedItems (1)Sicer paZapri podKonec ČeNastavite dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Označite mapo in napišite ime datoteke."dlgFileSaveAs.ButtonName = "Prilepi"Če je dlgFileSaveAs.Show = True, potemstrTarFile = dlgFileSaveAs.SelectedItems (1)Sicer paZapri podKonec ČeFileCopy strOrgFile, strTarFileEnd Sub |
Ko ga zaženete, se bo najprej prikazalo pogovorno okno »Prosimo, izberite datoteko za kopiranje«.
Nato izberite datoteko za kopiranje.
Ko izberete datoteko, kliknite gumb »Kopiraj«.
Nato se prikaže pogovorno okno »Prosimo, označite mapo in napišite ime datoteke«.
Izberite ciljno mapo in napišite ime datoteke.
Po tem kliknite gumb »Prilepi«.
Nato se izvorna datoteka kopira z ciljno mapo in imenom datoteke.