Vba excel скопировать файл не открывая

FileCopy Description

Copies a file from one directory to another.

Simple FileCopy Examples

FileCopy "C:Test.txt" "D:"

This will copy the file “Test.txt” on “C:” to the D drive.

If the file “Test.txt” doesn’t exist on “C:”, it will occur a Run-time error ’53’: File not found.

FileCopy Syntax

In the VBA Editor, you can type  “FileCopy(” to see the syntax for the FileCopy Statement:

The FileCopy statement contains 2 arguments:

Source: String name of file to copy. Can include path.

Destination: String expression that specifies the target file name. The destination may include directory or folder, and drive.

Examples of Excel VBA FileCopy Function

Please test with the following code.

Sub FileCopy_Example()
    Dim dlgFilePicker As FileDialog
    Dim dlgFileSaveAs As FileDialog
    Dim strOrgFile As String
    Dim strTarFile As String
    
    Set dlgFilePicker = Application.FileDialog(msoFileDialogFilePicker)
    
    dlgFilePicker.AllowMultiSelect = False
    dlgFilePicker.ButtonName = "Copy"
    dlgFilePicker.Title = "Please select a file to copy"
    
    If dlgFilePicker.Show = True Then
        strOrgFile = dlgFilePicker.SelectedItems(1)
    Else
        Exit Sub
    End If
    
    Set dlgFileSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    dlgFileSaveAs.Title = "Please indicate a folder and write a file name."
    dlgFileSaveAs.ButtonName = "Paste"
    
    If dlgFileSaveAs.Show = True Then
        strTarFile = dlgFileSaveAs.SelectedItems(1)
    Else
        Exit Sub
    End If
    
    FileCopy strOrgFile, strTarFile
End Sub

Running it, it will display a dialog “Please select a file to copy” at first.

Then, you should select a file to copy.

After select a file, please click the button “Copy”.

Then, it will display a dialog “Please indicate a folder and write a file name”.

You should select a destination folder and write a file name.

After that, click the button “Paste”.

Then, the source file will be copied with the destination folder and file name.

Excel VBA FileCopy

There are many ways to copy or move a file from one folder to another. We can do it manually from Copying and cutting the file icon and pasting it into the destination folder. But when it comes to automating this process of copying the file, we can do that in VBA as well. To copy the file, we have a function available in VBA named as same “File Copy”.

Syntax of FileCopy in Excel VBA

It is very easy to apply File Copy in VBA. The syntax of File Copy is as shown below.

File Copy has only two components to feed. Which are:

• Source – Here we will put the source location from where we need to copy the file.
• Destination – And this will be the destination folder where we will be pasting the copied file.

The complete syntax will be in String datatype. Because we will be using the path of the file which will be as text.

How to Copy a File in Excel VBA?

Now let us try with some examples on VBA File Copy in Excel.

You can download this VBA Copy a File Excel Template here – VBA Copy a File Excel Template

Example #1 – FileCopy In VBA

In the first example, we will see how to copy a file from a source location and paste it in a destination location in a very simple way.

For this, we need a file of any kind or extension. Here we are considering an Excel file with extension xlsx. As we can see, we have placed that excel file into a location which is easy to access named as Test.

Now we will copy this file with the help of FileCopy to the below destination folder.

Step 1: For this, go to VBA and open a Module from Insert menu drop-down option as shown below.

Step 2: Now in the opened module, write the subcategory of VBA FileCopy or in any other name as per your choice.

Code:

Sub VBA_Copy1()

End Sub

Step 3: Now directly open the FileCopy function as shown below.

Code:

Sub VBA_Copy1()

FileCopy(

End Sub

Step 4: Now in quotes write the source location address followed by file name and extension as shown below.

Code:

Sub VBA_Copy1()

FileCopy "D:Test1Hello.xlsx",

End Sub

Step 5: For the Destination location, again put the path in inverted commas followed by file and extension.

Code:

Sub VBA_Copy1()

FileCopy "D:Test1Hello.xlsx", "D:VPB FileApril FilesHello.xlsx"

End Sub

Step 6: Now compile the code and run it by clicking on the Play button which is located below the menu bar. We will see, the excel file with name Test is now copied from the source location to destination location as shown below. As there was nothing in the file so the size of the file is coming as 0 KB.

Example #2 – FileCopy In VBA

In another example, we will see how to copy the file from Source location to Destination by defining the variable. This process is little lengthy but more reliable as we will be fixing the parameters and variable.

Step 1: Now first open a new module and write the subcategory of VBA File Copy as shown below.

Code:

Sub VBA_Copy2()

End Sub

Step 2: First, define a variable where we will be putting the source location of the file same excel file which we have used in example-1 as String.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String

End Sub

Step 3: In a similar way, we will be needing another variable for the Destination location.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

End Sub

Step 4: Now put the location in the first defined variable which is “FirstLocation” along with file name and its extension.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

FirstLocation = "D:Test1Hello.xlsx"

End Sub

Step 5: In a similar way, do that same thing for Destination location using variable “SecondLocation” which we have defined above.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

FirstLocation = "D:Test1Hello.xlsx"
SecondLocation = "D:VPB FileApril FilesHello.xlsx"

End Sub

Step 6: Now it is the time to use FileCopy function.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

FirstLocation = "D:Test1Hello.xlsx"
SecondLocation = "D:VPB FileApril FilesHello.xlsx"

FileCopy

End Sub

As per syntax of the FileCopy first, we have to put source location, where we have kept the file. But as we have already defined the source and destination location folders in above for both variables.

Step 7: So here we can directly select those variables. First select source location variable which is FirstLocation.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

FirstLocation = "D:Test1Hello.xlsx"
SecondLocation = "D:VPB FileApril FilesHello.xlsx"

FileCopy FirstLocation

End Sub

Step 8: Again in a similar way, select the destination location variable which is SecondLocation as shown below.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

FirstLocation = "D:Test1Hello.xlsx"
SecondLocation = "D:VPB FileApril FilesHello.xlsx"

FileCopy FirstLocation, SecondLocation

End Sub

Step 9: Once done, we will compile the code by pressing F8 functional key. And if there is no error found, then run the code. We will see, the file from source location is copied and pasted in the destination folder as shown below.

We can try different location path as well. For test let’s consider another source location where we will be having a word file.

As we can see, the file doesn’t have any data so the size is again showing as 0 KB.

And the destination folder will be Output Location folder which is under Input Location folder. If we see inside the file, there is no data available.

Now we will replace the source and destination in variables FirstLocation and Second Location respectively followed by the file name and its extension.

Code:

Sub VBA_Copy2()

Dim FirstLocation As String
Dim SecondLocation As String

FirstLocation = "D:VPB FileApril FilesNew ExcelTest Case.docx"
SecondLocation = "D:VPB FileApril FilesFinal locationTest Case.docx"

FileCopy FirstLocation, SecondLocation

End Sub

Now run the code.

We will see, the Test word file is now copied from the Input Location folder to Output location folder with the same size which is 0 KB.

Pros of FileCopy In VBA

• It can be used for copying more than 1 file in one shot.
• It takes a similar amount of time for 10 files as it takes for copying one file.
• We can use any extension file type which we want to copy.

Things to Remember

• Always put the file name and its extension at the end of the location name.
• Quote the destination and source location links into inverted commas.
• Once done, save the code in Macro enable excel to use and retain the code for future purpose.
• Always grant the permission to code so that it could copy the file from the source location and paste it in a destination location.

Recommended Articles

This is a guide to FileCopy in VBA. Here we discuss how to Copy an Excel file using VBA Code along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA Active Cell
2. VBA XML
3. VBA Transpose
4. VBA RGB

Метод CopyFile

Копирует один или несколько файлов из одного расположения в другое.

Синтаксис

object. Источник CopyFile , назначение, [ перезапись ]

Синтаксис метода CopyFile содержит следующие элементы:

Part	Описание
object	Обязательно. Объект всегда является именем Объекта FileSystemObject.
источник	Обязательно. Спецификация файла строки символов, которая может содержать подстановочные знаки (для одного или нескольких копируемых файлов).
destination	Обязательно. Символьное строковое обозначение конечного расположения, в которое необходимо скопировать файл или файлы из элемента source. Использование подстановочных знаков не допускается.
Перезаписать	Необязательный параметр. Логическое значение, которое указывает, требуется ли перезапись существующих файлов. Если установлено значение True, файлы будут перезаписаны; если задано значение False, перезапись не выполняется. По умолчанию используется значение True. Необходимо учитывать, что функция CopyFile не выполняется, если для элемента destination установлено свойство «только чтение», независимо от значения элемента overwrite.

Замечания

Подстановочные знаки могут использоваться только в последнем компоненте пути аргумента source. Например, можно использовать:

Однако нельзя использовать:

Если источник содержит подстановочные знаки или назначение заканчивается разделителем пути (****), предполагается, что назначение — это существующая папка, в которую копируются соответствующие файлы. В противном случае элемент, destination предположительно является именем создаваемого файла. В любом случае при копировании отдельного файла могут произойти три вещи:

Если элемент destination не существует, выполняется копирование элемента source. Это типичный случай.

Если элемент destination представляет собой существующий файл, возникает ошибка, если элементу overwrite присвоено значение False. В противном случае выполняется попытка копирования элемента source в существующий файл.

Если destination является каталогом, происходит ошибка.

Ошибка также возникает в том случае, если элемент source, который использует подстановочные знаки, не соответствует ни одному из файлов. Выполнение метода CopyFile останавливается при обнаружении первой ошибки. До возникновения ошибки попыток отката или отмены каких-либо изменений не выполняется.

Файлы, скопированные в новый целевой путь, будут сохранять одно и то же имя файла. Чтобы переименовать скопированный файл, просто добавьте новое имя файла в путь назначения. Например, файл будет скопирован в новое расположение, а файл в новом расположении будет иметь другое имя:

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

VBA Excel. Копирование и перемещение файлов

Копирование и перемещение файлов в VBA Excel с помощью методов CopyFile и MoveFile объекта FileSystemObject. Синтаксис, параметры, примеры.

Копирование файлов

Метод CopyFile

Синтаксис

Параметры

Параметр	Описание
object	Переменная, возвращающая объект FileSystemObject. Обязательный параметр.
source	Строковое выражение, задающее полное имя файла, который требуется скопировать в другое расположение. Для копирования нескольких файлов используются подстановочные знаки. Обязательный параметр.
destination	Строковое выражение, задающее конечное расположение, куда требуется скопировать файл (файлы) из элемента source. Подстановочные знаки не допускаются. Обязательный параметр.
overwrite	Логическое значение, которое указывает, требуется ли перезаписывать существующие файлы в конечном расположении. True – файлы будут перезаписаны, False – перезапись не выполняется. Необязательный параметр, по умолчанию – True.

Если копируемый файл с полным именем source не существует, будет сгенерирована ошибка.

При копировании одного файла методом CopyFile допустимо в параметре destination указать другое собственное имя файла, тогда скопированный файл будет сохранен под новым именем. В том числе, можно изменить и расширение файла.

Примеры

Пример 1
Копирование одного файла в другое расположение с проверкой его существования:

Источник

Как средствами VBA переименовать/переместить/скопировать файл

В этой статье я хотел бы рассказать как средствами VBA переименовать, переместить или скопировать файл. В принципе методы переименования, перемещения и копирования, так сказать, встроены в VBA. Это значит что можно без вызова сторонних объектов переименовать, переместить или копировать любой файл. Все это делается при помощи всего двух команд: FileCopy и Name [Исходный файл] As [Новый файл] . Притом команда FileCopy выполняет только копирование, а Name [Исходный файл] As [Новый файл] — как переименование, так и перемещение. Разница лишь в том, что при переименовании мы указываем только новое имя файла, а при перемещении — другую директорию(папку), в которую следует переместить файл. Плюс рассмотрим пример удаления файла.
Так же разберем методы копирования, перемещения, переименования и удаления файлов и папок через библиотеку FileSystemObject (FSO).

Работа с файлами встроенными командами VBA

Работа с файлами через объект FileSystemObject (FSO)

Работа с папками через объект FileSystemObject (FSO)

Во всех примерах работы с файлами встроенными функциями будет присутствовать проверка на наличие файла по указанному пути. Делать это будем при помощи встроенной функции Dir([PathName],[Attributes]) .
PathName — указывается полный путь к файлу
Attributes — указывается признак свойств файла. Вообще их несколько(скрытый, архивный и т.п.), но нас для наших задач будет интересовать пока только один: 16(vbDirectory). Он отвечает за проверку папок и файлов без специальных свойств(т.е. не архивные, не скрытые и т.д.). Хотя по сути его можно вообще не указывать, и тогда будет по умолчанию применен атрибут 0(vbNormal) — проверка файлов без определенных свойств. Ни в том ни в другом случае ошибкой это не будет.

Sub Copy_File() Dim sFileName As String, sNewFileName As String sFileName = «C:WWW.xls» ‘имя файла для копирования sNewFileName = «D:WWW.xls» ‘имя копируемого файла. Директория(в данном случае диск D) должна существовать If Dir(sFileName, 16) = «» Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If FileCopy sFileName, sNewFileName ‘копируем файл MsgBox «Файл скопирован», vbInformation, «www.excel-vba.ru» End Sub

Sub Move_File() Dim sFileName As String, sNewFileName As String sFileName = «C:WWW.xls» ‘имя исходного файла sNewFileName = «D:WWW.xls» ‘имя файла для перемещения. Директория(в данном случае диск D) должна существовать If Dir(sFileName, 16) = «» Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If Name sFileName As sNewFileName ‘перемещаем файл MsgBox «Файл перемещен», vbInformation, «www.excel-vba.ru» End Sub

Sub Rename_File() Dim sFileName As String, sNewFileName As String sFileName = «C:WWW.xls» ‘имя исходного файла sNewFileName = «C:WWW1.xls» ‘имя файла для переименования If Dir(sFileName, 16) = «» Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If Name sFileName As sNewFileName ‘переименовываем файл MsgBox «Файл переименован», vbInformation, «www.excel-vba.ru» End Sub

Sub Delete_File() Dim sFileName As String sFileName = «C:WWW.xls» ‘имя файла для удаления If Dir(sFileName, 16) = «» Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If Kill sFileName ‘удаляем файл MsgBox «Файл удален», vbInformation, «www.excel-vba.ru» End Sub

Как видно ничего сложного.

Так же можно проделать те же операции с файлами при помощи объекта FileSystemObject. Строк кода несколько больше и выполняться операции будут медленнее(хотя вряд ли это будет заметно на примере одного файла). Однако есть существенный плюс — при помощи FileSystemObject можно корректно производить операции с файлами и папками на сетевом диске. Хотя та же Dir(sFileName, 16) часто выдает ошибку при работе с сетевыми дисками.
Прежде всего следует, я думаю, пояснить что за зверь такой — FileSystemObject.
FileSystemObject (FSO) — содержится в библиотеке типов Scripting, расположенной в файле библиотеки scrrun.dll. Объектная модель FSO дает возможность создавать, изменять, перемещать и удалять папки и файлы, собирать о них различную информацию: имена, атрибуты, даты создания или изменения и т.д. Чтобы работать с FSO необходимо создать переменную со ссылкой на объект библиотеки. Сделать это можно двумя способами: через ранее связывание и позднее. Я не буду сейчас вдаваться в подробности этих методов — тема довольно обширная и я опишу её в другой статье.
Ранее связывание: для начала необходимо подключить библиотеку Microsoft Scripting Runtime. Делается это в редакторе VBA: References-находите там Microsoft Scripting Runtime и подключаете. Объявлять переменную FSO при раннем связывании следует так:

Dim objFSO As New FileSystemObject

Плюсы раннего связывания: с помощью Object Browser можно просмотреть список объектов, свойств, методов, событий и констант, включенных в FSO. Но есть значительный минус: если планируется использовать программу на нескольких компьютерах, то есть большая вероятность получить ошибку(читать подробнее).
Позднее связывание: ничего нигде не надо подключать, а просто используем метод CreateObject(именно этот способ используется мной в примерах ниже). Методы таким образом просмотреть не получится, но зато работать будет без проблем на любых компьютерах без дополнительных действий.

Sub Copy_File() Dim objFSO As Object, objFile As Object Dim sFileName As String, sNewFileName As String sFileName = «C:WWW.xls» ‘имя исходного файла sNewFileName = «D:WWW.xls» ‘имя файла для переименования ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие файла по указанному пути If objFSO.FileExists(sFileName) = False Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘копируем файл Set objFile = objFSO.GetFile(sFileName) objFile.Copy sNewFileName MsgBox «Файл скопирован», vbInformation, «www.excel-vba.ru» End Sub

Sub Move_File() Dim objFSO As Object, objFile As Object Dim sFileName As String, sNewFileName As String sFileName = «C:WWW.xls» ‘имя исходного файла sNewFileName = «D:WWW.xls» ‘имя файла для переименования ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие файла по указанному пути If objFSO.FileExists(sFileName) = False Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘перемещаем файл Set objFile = objFSO.GetFile(sFileName) objFile.Move sNewFileName MsgBox «Файл перемещен», vbInformation, «www.excel-vba.ru» End Sub

Sub Rename_File() Dim objFSO As Object, objFile As Object Dim sFileName As String, sNewFileName As String sFileName = «C:WWW.xls» ‘имя исходного файла sNewFileName = «WWW1.xls» ‘имя файла для переименования ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие файла по указанному пути If objFSO.FileExists(sFileName) = False Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘переименовываем файл Set objFile = objFSO.GetFile(sFileName) objFile.Name = sNewFileName MsgBox «Файл переименован», vbInformation, «www.excel-vba.ru» End Sub

Хочу обратить внимание, что при переименовании файла через FileSystemObject необходимо указать только имя нового файла — путь указывать не надо. Иначе получите ошибку.

Sub Delete_File() Dim objFSO As Object, objFile As Object Dim sFileName As String sFileName = «C:WWW.xls» ‘имя файла для удаления ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие файла по указанному пути If objFSO.FileExists(sFileName) = False Then MsgBox «Нет такого файла», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘удаляем файл Set objFile = objFSO.GetFile(sFileName) objFile.Delete MsgBox «Файл удален», vbInformation, «www.excel-vba.ru» End Sub

Точно так же можно перемещать, копировать и удалять целые папки:

Sub Copy_Folder() Dim objFSO As Object Dim sFolderName As String, sNewFolderName As String sFolderName = «C:test» ‘имя исходной папки sNewFolderName = «D:tmp» ‘имя папки, в которую копируем(нужен слеш на конце) ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие папки по указанному пути If objFSO.FolderExists(sFolderName) = False Then MsgBox «Нет такой папки», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘копируем папку objFSO.CopyFolder sFolderName, sNewFolderName MsgBox «Папка скопирована», vbInformation, «www.excel-vba.ru» End Sub

Sub Move_Folder() Dim objFSO As Object Dim sFolderName As String, sNewFolderName As String sFolderName = «C:test» ‘имя исходной папки sNewFolderName = «C:tmptest» ‘имя папки, в которую перемещаем(нужен слеш на конце) ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие папки по указанному пути If objFSO.FolderExists(sFolderName) = False Then MsgBox «Нет такой папки», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘перемещаем папку objFSO.MoveFolder sFolderName, sNewFolderName MsgBox «Папка перемещена», vbInformation, «www.excel-vba.ru» End Sub

Sub Rename_Folder() Dim objFSO As Object, objFolder As Object Dim sFolderName As String, sNewFolderName As String sFolderName = «C:test» ‘имя исходной папки ‘имя папки для переименования(только имя, без полного пути) sNewFolderName = «new folder name» ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие папки по указанному пути If objFSO.FolderExists(sFolderName) = False Then MsgBox «Нет такой папки», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘переименовываем папку ‘получаем доступ к объекту Folder(папка) Set objFolder = objFSO.GetFolder(sFolderName) ‘назначаем новое имя objFolder.Name = sNewFolderName MsgBox «Папка переименована», vbInformation, «www.excel-vba.ru» End Sub

Sub Delete_Folder() Dim objFSO As Object, objFolder As Object Dim sFolderName As String sFolderName = «C:test» ‘имя папки для удаления ‘создаем объект FileSystemObject Set objFSO = CreateObject(«Scripting.FileSystemObject») ‘проверяем наличие папки по указанному пути If objFSO.FolderExists(sFolderName) = False Then MsgBox «Нет такой папки», vbCritical, «www.excel-vba.ru» Exit Sub End If ‘удаляем папку objFSO.DeleteFolder sFolderName MsgBox «Папка удалена», vbInformation, «www.excel-vba.ru» End Sub

FSO, конечно, способен на большее — но цель данной статьи была показать основные операции с папками и файлами как стандартными методами, так и более продвинутыми.

Статья помогла? Поделись ссылкой с друзьями!

Источник