Substituindo o nome do arquivo com VBA

Imagine que você tem um endereço de arquivo armazenado em uma variável String e necessita substituir apenas o nome do arquivo:

“d:\meus documentos\projeto1\outra sub pasta\cadastro cliente.xlsx

Ai você apenas quer que o nome do arquivo seja de [cadastro cliente.xlsx] para [cadastro do pedro.xlsx].

Public Function ReplaceFileName(ByVal path As String, ByVal filename As String)
 Dim parts() As String
 Dim newPath As String
 parts = Split(path, "\", , vbTextCompare)
 Dim i As Integer
 For i = 0 To UBound(parts) - 1
    newPath = newPath & Trim(parts(i)) & "\"
 Next i
 ReplaceFileName = newPath & filename
End Function

Veja o resultado na janela imediata:

?ReplaceFileName(“d:\meus documentos\projeto1\outra sub pasta\cadastro cliente.xlsx”,”cadastro do pedro.xlsx”)
d:\meus documentos\projeto1\outra sub pasta\cadastro do pedro.xlsx

Esta entrada foi publicada em Visual Basic 6.0 e VBA com as etiquetas . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s