Описание на FileCopy
Копира файл от една директория в друга.
Прости примери за FileCopy
1 | FileCopy "C: \ Test.txt" "D: \" |
Това ще копира файла „Test.txt“ на „C: \“ на D устройството.
Ако файлът „Test.txt“ не съществува на „C: \“, ще възникне грешка по време на изпълнение „53“: Файлът не е намерен.
Синтаксис на FileCopy
В редактора на VBA можете да въведете „FileCopy (“, за да видите синтаксиса за изявлението FileCopy:
Изразът FileCopy съдържа 2 аргумента:
Източник: Име на низ на файл за копиране. Може да включва пътека.
Дестинация: Низов израз, който определя името на целевия файл. Дестинацията може да включва директория или папка и устройство.
Примери за Excel VBA FileCopy функция
Моля, тествайте със следния код.
123456789101112131415161718192021222324252627282930 | ПодфайлCopy_Example ()Затъмнете dlgFilePicker като FileDialogDim dlgFileSave As As FileDialogDim strOrgFile As StringDim strTarFile As StringЗадайте dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Копирай"dlgFilePicker.Title = "Моля, изберете файл за копиране"Ако dlgFilePicker.Show = Истина тогаваstrOrgFile = dlgFilePicker.SelectedItems (1)ИначеИзход от SubКрай АкоЗадайте dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Моля, посочете папка и напишете име на файл."dlgFileSaveAs.ButtonName = "Поставяне"Ако dlgFileSaveAs.Show = Истина тогаваstrTarFile = dlgFileSaveAs.SelectedItems (1)ИначеИзход от SubКрай АкоFileCopy strOrgFile, strTarFileEnd Sub |
При стартиране първо ще се покаже диалогов прозорец „Моля, изберете файл за копиране“.
След това трябва да изберете файл за копиране.
След като изберете файл, моля, кликнете върху бутона „Копирай“.
След това ще се покаже диалогов прозорец „Моля, посочете папка и напишете име на файл“.
Трябва да изберете папка дестинация и да напишете име на файл.
След това щракнете върху бутона „Поставяне“.
След това изходният файл ще бъде копиран с целевата папка и името на файла.