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 ()Dim dlgFilePicker как FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile как строкаDim strTarFile As StringУстановите dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = ЛожьdlgFilePicker.ButtonName = "Копировать"dlgFilePicker.Title = "Выберите файл для копирования"Если dlgFilePicker.Show = True, тоstrOrgFile = dlgFilePicker.SelectedItems (1)ЕщеВыйти из подводной лодкиКонец, еслиУстановите dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Укажите папку и напишите имя файла."dlgFileSaveAs.ButtonName = "Вставить"Если dlgFileSaveAs.Show = True, тоstrTarFile = dlgFileSaveAs.SelectedItems (1)ЕщеВыйти из подводной лодкиКонец, еслиFileCopy strOrgFile, strTarFileКонец подписки |
Запустив его, сначала отобразится диалоговое окно «Выберите файл для копирования».
Затем вы должны выбрать файл для копирования.
После выбора файла нажмите кнопку «Копировать».
Затем отобразится диалоговое окно «Укажите папку и напишите имя файла».
Вы должны выбрать папку назначения и написать имя файла.
После этого нажмите кнопку «Вставить».
Затем исходный файл будет скопирован с целевой папкой и именем файла.