FileCopy kirjeldus
Kopeerib faili ühest kataloogist teise.
Lihtsad FileCopy näited
| 1 | FileCopy "C: \ Test.txt" "D: \" |
See kopeerib faili “Test.txt” failist “C: \” D -draivi.
Kui faili „Test.txt” pole kataloogis „C: \”, ilmneb käitusaja tõrge „53”: faili ei leitud.
FileCopy süntaks
VBA redaktoris saate FileCopy avalduse süntaksi nägemiseks tippida "FileCopy ("):
FileCopy avaldus sisaldab kahte argumenti:
Allikas: Kopeeritava faili stringi nimi. Võib sisaldada teed.
Sihtkoht: Stringväljend, mis määrab sihtfaili nime. Sihtkoht võib sisaldada kataloogi või kausta ja draivi.
Excel VBA FileCopy funktsiooni näited
Palun testige järgmise koodiga.
| 123456789101112131415161718192021222324252627282930 | Alamfaili koopia_näide ()Dim dlgFilePicker kui FileDialogDim dlgFileSaveAs kui FileDialogDim strOrgFile kui stringDim strTarFile kui stringMäära dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = ValedlgFilePicker.ButtonName = "Kopeeri"dlgFilePicker.Title = "Palun valige kopeeritav fail"Kui dlgFilePicker.Show = Tõene siisstrOrgFile = dlgFilePicker.SelectedItems (1)MuiduVälju subLõpp KuiMäära dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Palun märkige kaust ja kirjutage faili nimi."dlgFileSaveAs.ButtonName = "Kleebi"Kui dlgFileSaveAs.Show = Tõene siisstrTarFile = dlgFileSaveAs.SelectedItems (1)MuiduVälju subLõpp KuiFileCopy strOrgFile, strTarFileEnd Sub |
Selle käivitamisel kuvatakse kõigepealt dialoog „Palun valige kopeeritav fail”.
Seejärel peaksite valima kopeeritava faili.
Pärast faili valimist klõpsake nuppu "Kopeeri".
Seejärel kuvatakse dialoog „Palun märkige kaust ja kirjutage faili nimi”.
Peate valima sihtkausta ja kirjutama faili nime.
Pärast seda klõpsake nuppu "Kleebi".
Seejärel kopeeritakse lähtefail koos sihtkausta ja faili nimega.
