FileCopy Description
Copiază un fișier dintr-un director în altul.
Exemple simple FileCopy
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Aceasta va copia fișierul „Test.txt” de pe „C: \” pe unitatea D.
Dacă fișierul „Test.txt” nu există pe „C: \”, va apărea o eroare de execuție ‘53’: Fișierul nu a fost găsit.
Sintaxă FileCopy
În Editorul VBA, puteți tasta „FileCopy (” pentru a vedea sintaxa declarației FileCopy:
Declarația FileCopy conține 2 argumente:
Sursă: Numele șirului fișierului de copiat. Poate include calea.
Destinaţie: Expresie șir care specifică numele fișierului țintă. Destinația poate include director sau folder și unitate.
Exemple de funcții Excel VBA FileCopy
Vă rugăm să testați cu următorul cod.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker ca FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile As StringDim strTarFile As StringSetați dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Copiați"dlgFilePicker.Title = "Vă rugăm să selectați un fișier de copiat"Dacă dlgFilePicker.Show = True AtuncistrOrgFile = dlgFilePicker.SelectedItems (1)AltfelIeșiți din SubEnd IfSetați dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Vă rugăm să indicați un folder și să scrieți un nume de fișier."dlgFileSaveAs.ButtonName = "Lipiți"Dacă dlgFileSaveAs.Show = True AtuncistrTarFile = dlgFileSaveAs.SelectedItems (1)AltfelIeșiți din SubEnd IfFileCopy strOrgFile, strTarFileSfârșitul Sub |
Rularea acestuia va afișa la început un dialog „Vă rugăm să selectați un fișier de copiat”.
Apoi, ar trebui să selectați un fișier de copiat.
După selectarea unui fișier, faceți clic pe butonul „Copiere”.
Apoi, se va afișa un dialog „Vă rugăm să indicați un folder și să scrieți un nume de fișier”.
Ar trebui să selectați un folder de destinație și să scrieți un nume de fișier.
După aceea, faceți clic pe butonul „Lipire”.
Apoi, fișierul sursă va fi copiat cu folderul de destinație și numele fișierului.
