FileCopy apraksts
Kopē failu no viena direktorija uz citu.
Vienkārši FileCopy piemēri
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Tādējādi fails “Test.txt” uz “C: \” tiks kopēts uz D disku.
Ja failā “Test.txt” neeksistē “C: \”, radīsies izpildlaika kļūda “53”: fails nav atrasts.
FileCopy sintakse
VBA redaktorā varat ierakstīt “FileCopy (”), lai skatītu FileCopy paziņojuma sintaksi:
Paziņojumā FileCopy ir 2 argumenti:
Avots: Kopējamā faila virknes nosaukums. Var iekļaut ceļu.
Galamērķis: Virknes izteiksme, kas norāda mērķa faila nosaukumu. Galamērķis var ietvert direktoriju vai mapi un disku.
Excel VBA FileCopy funkcijas piemēri
Lūdzu, pārbaudiet, izmantojot šādu kodu.
| 123456789101112131415161718192021222324252627282930 | ApakšfailsCopy_Example ()Dim dlgFilePicker kā FileDialogDim dlgFileSaveAs kā FileDialogDim strOrgFile kā virkneDim strTarFile kā virkneIestatiet dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = NepareizidlgFilePicker.ButtonName = "Kopēt"dlgFilePicker.Title = "Lūdzu, atlasiet kopējamo failu"Ja dlgFilePicker.Show = PatiessstrOrgFile = dlgFilePicker.SelectedItems (1)CitādiIziet no apakšnodaļasBeigas JaIestatīt dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Lūdzu, norādiet mapi un ierakstiet faila nosaukumu."dlgFileSaveAs.ButtonName = "Ielīmēt"Ja dlgFileSaveAs.Show = PatiessstrTarFile = dlgFileSaveAs.SelectedItems (1)CitādiIziet no apakšnodaļasBeigas JaFileCopy strOrgFile, strTarFileBeigu apakš |
Palaižot to, vispirms tiks parādīts dialoglodziņš “Lūdzu, atlasiet kopējamo failu”.
Pēc tam jums jāizvēlas kopējamais fails.
Pēc faila izvēles noklikšķiniet uz pogas “Kopēt”.
Pēc tam tiks parādīts dialoglodziņš “Lūdzu, norādiet mapi un ierakstiet faila nosaukumu”.
Jums jāizvēlas galamērķa mape un jāraksta faila nosaukums.
Pēc tam noklikšķiniet uz pogas "Ielīmēt".
Pēc tam avota fails tiks kopēts ar mērķa mapi un faila nosaukumu.
