Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Renomear arquivo (a...
 
Notifications
Clear all

Renomear arquivo (arquivo já existe!)

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
817 Visualizações
RSS
 DJVSWD
(@djvswd)
Posts: 10
Active Member
Topic starter
 

Bom Dia

Caros Amigos!

Estou tentando mover um arquivo e ao mesmo tempo renomear ele, porém quando vou fazer esse procedimento usando o código abaixo aparece a mensagem que o arquivo já existe tem algum comando para ele substituir esse arquivo para que não apareça essa mensagem?

Valeu!!

Sub Renomeia_Arquivo()

NameRel_1 = Range("A2")
NameRel_2 = Range("C2")

Name "C:Usersdouglas.vieiraDownloads" & NameRel_1 & "" As "C:Usersdouglas.vieiraDesktopLogin x Logout " & NameRel_2 & ""

End Sub

 
Postado : 25/02/2014 6:27 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

pq vc não exclui o antigo antes de copiar?

kill "C:Usersdouglas.vieiraDesktopLogin x Logout " & NameRel_2 & ""

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 25/02/2014 6:33 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

opps!! depois vi que o Gilmar já havia respondido.
Você pode verificar primeiro se o arquivo existe, se existir deleta, então renomeia o anterior
algo +/- assim:

Sub Renomeia_Arquivo()
NameRel_1 = Range("A2")
NameRel_2 = Range("C2")
'Verifica se o arquivo já existe, se existir, deleta
    If (Dir("C:Usersdouglas.vieiraDesktopLogin x Logout " & NameRel_2 & "") <> "") Then
        Kill "C:Usersdouglas.vieiraDesktopLogin x Logout " & NameRel_2 & ""
    End If
Name "C:Usersdouglas.vieiraDownloads" & NameRel_1 & "" As "C:Usersdouglas.vieiraDesktopLogin x Logout " & NameRel_2 & ""
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/02/2014 6:41 am
Forum Jump:
  Tópico Anterior
Próximo Tópico