Опис 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 | Sub FileCopy_Example ()Затемнити dlgFilePicker як FileDialogDim dlgFileSaveAs як FileDialogDim strOrgFile As StringЗатемнити strTarFile як рядокВстановити dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = НеправдаdlgFilePicker.ButtonName = "Копіювати"dlgFilePicker.Title = "Виберіть файл для копіювання"Якщо dlgFilePicker.Show = ІстинаstrOrgFile = dlgFilePicker.SelectedItems (1)ІнакшеВийти з підпЗакінчити ЯкщоВстановити dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Будь ласка, вкажіть папку та напишіть назву файлу."dlgFileSaveAs.ButtonName = "Вставити"Якщо dlgFileSaveAs.Show = ІстинаstrTarFile = dlgFileSaveAs.SelectedItems (1)ІнакшеВийти з підпЗакінчити ЯкщоFileCopy strOrgFile, strTarFileEnd Sub |
Запустивши його, він спочатку відобразить діалогове вікно «Будь ласка, виберіть файл для копіювання».
Потім слід вибрати файл для копіювання.
Після вибору файлу натисніть кнопку «Копіювати».
Потім з'явиться діалогове вікно «Будь ласка, вкажіть папку та напишіть назву файлу».
Вам слід вибрати папку призначення та записати назву файлу.
Після цього натисніть кнопку «Вставити».
Потім вихідний файл буде скопійовано з папкою призначення та ім’ям файлу.
