VBA – Instrução FileCopy

Descrição do FileCopy

Copia um arquivo de um diretório para outro.

Exemplos Simples de FileCopy

FileCopy "C:\Teste.txt" "D:\"

Isso copiará o arquivo “Teste.txt” em “C:\” para a unidade D.

Se o arquivo “Teste.txt” não existir em “C:\”, ocorrerá um erro de tempo de execução ’53’: Arquivo não encontrado.

Sintaxe de FileCopy

No editor do VBA, você pode digitar “FileCopy(” para ver a sintaxe da instrução FileCopy:

A instrução FileCopy contém 2 argumentos:

Source (Origem): Nome de string do arquivo a ser copiado. Pode incluir o caminho.

Destination (Destino): Expressão de cadeia de caracteres que especifica o nome do arquivo de destino. O destino pode incluir diretório ou pasta e unidade.

Exemplos da função FileCopy do Excel VBA

Faça um teste com o código a seguir.

Sub FileCopy_Exemplo()
    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 = "Copiar"
    dlgFilePicker.Title = "Selecione um arquivo para copiar"
    
    If dlgFilePicker.Show = True Then
        strOrgFile = dlgFilePicker.SelectedItems(1)
    Else
        Exit Sub
    End If
    
    Set dlgFileSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    dlgFileSaveAs.Title = "Indique uma pasta e escreva um nome de arquivo."
    dlgFileSaveAs.ButtonName = "Colar"
    
    If dlgFileSaveAs.Show = True Then
        strTarFile = dlgFileSaveAs.SelectedItems(1)
    Else
        Exit Sub
    End If
    
    FileCopy strOrgFile, strTarFile
End Sub

Ao executá-lo, será exibida inicialmente a caixa de diálogo “Selecione um arquivo para copiar”.

Em seguida, você deve selecionar um arquivo para copiar.

Depois de selecionar um arquivo, clique no botão “Copiar”.

Em seguida, será exibida a caixa de diálogo “Indique uma pasta e escreva o nome do arquivo”.

Você deve selecionar uma pasta de destino e escrever um nome de arquivo.

Depois disso, clique no botão “Colar”.

Em seguida, o arquivo de origem será copiado com a pasta de destino e o nome do arquivo.