ExcelMadeEasy: Vba copy file in vba in Excel

Vba copy file in vba in Excel

At many instances, the user may be required to copy one or more files from one location to another within the program.

This type of requirement is most seen in corporate applications where files are moved often.

The Excel VBA allows the user to move or copy file with ease without involving the manual work of opening drive folders copy, paste and so on.

The following code demonstrates the file transfer with VBA.

Sub filecopy()
Dim fDialog As FileDialog, result As Integer
Dim sfil As String
Dim fldr As FileDialog
Dim sItem As String
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
fDialog.AllowMultiSelect = False
fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\"
fDialog.Filters.Clear
fDialog.Filters.Add "Excel files", "*.xlsx"
fDialog.Filters.Add "All files", "*.*"
If fDialog.Show = -1 Then
MsgBox fDialog.SelectedItems(1)
sfil = fDialog.SelectedItems(1)
End If
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath

If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
MsgBox "You have selected " & sItem
NextCode:
GetFolder = sItem
Set fldr = Nothing
FSO.CopyFile (sfil), sItem, True
End Sub

The above code demands the user to select file to copy and destination folder and then copies the file from source to destination.

The screenshot of the editor is as shown below.

excel vba copy file in vba

You can find similar Excel Questions and Answer hereunder

1) How can I find the last used cell in a Column in VBA?

2) Vba clear the contents of an entire sheet in Excel

3) Here some explanations about XPATH. XPath is a syntax for defining parts of an XML document

4) Vba delete entire row if contains certain text in Excel

5) Here a explanation about the global seek function in VBA. Goal Seek is another tool under What If analysis that does a unique function as Scenario Manager.

6) Here an explanation about the file dialog and how to control in with VBA

7) How can I hide a sheet completely from users (the sheet should not even appear in Unhide dialog box)?

8) Vba to return week numbers in Excel

9) How can I hide all comments in my WorkSheet using VBA?

10) How can I list all files in a folder using VBA?

Here the previous and next chapter