Recortar arquivo com VBA

Recortar arquivo em VBAAprenda a desenvolver sistemas em Microsoft Access 2007, no curso de access 2007 da empresa Cursos 24 Horas.

Recortar um arquivo pode ser uma tarefa um pouco complicada quando se trata do VBA.

A linguagem infelizmente não possui um comando nativo para esta finalidade. É necessário então improvisar uma solução com alguns comandos nativos do VBA.

Alguns dos comandos que serão usados nesta solução já foram mostrados aqui, como: comando dir e comando copy.

A seguir a solução para recortar arquivos usando VBA.

Recortando arquivos na linguagem VBA

O código a seguir, permite recortar um arquivo e deve ser inserido em uma rotina VBA:

Dim stTextoRetorno As String

FileCopy “c:\origem\arquivo.txt”, “c:\destino\arquivo.txt”

stTextoRetorno = Dir(“c:\destino\arquivo.txt”)

If stTextoRetorno <> “” Then

Kill “c:\origem\arquivo.txt”

End If

O que este script VBA faz é copiar o arquivo na sua origem para o seu destino e em seguida testa para ver se o arquivo existe na pasta de destino.

Caso o arquivo exista, então ele é apagado da sua origem, simulando assim um recorte.

Lembre-se que este script é uma adaptação minha, pois ainda não encontrei um comando para recortar arquivo direto no VBA.

Amigo leitor, esta rotina VBA para recortar arquivo foi útil? Deixe seu comentário e compartilhe este artigo nas redes sociais!

Autor: Matheus Pellizzaro

Matheus é formado em sistemas de Informação pela UDESC, desenvolve sistemas e páginas de internet para empresas e pessoas físicas nas "horas vagas". Maiores detalhes em www.tecnozen.com.br