Ir ao conteúdo
  • Cadastre-se

macro para renomear arquivo com nome indefinido


Posts recomendados

Boa tarde, 

 

Sou leiga na arte do macro ainda e estou precisando de uma ajudinha de você!!!! :)

 Tenho que padronizar os nomes dos arquivos que não estão padronizados sei que é assim:

 

Name "Z:\MACRO\iad.xlsx" As "Z:\MACRO\iad_062015.xlsx"
 
porém o nome iad.xlsx pode ser iad_qualquer outra coisa..
 
tentei colocar " *  " como abaixo mais não funciona :(
 
Name "Z:\MACRO\iad*.xlsx" As "Z:\MACRO\iad_062015.xlsx"
 
podem me ajudar ? 
 
obrigado
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois...

Olá,

 

Experimente esse código:

Sub Dany_Cardoso_504333()Dim FSO As Object, File As ObjectDim Folder As String, NewName As StringSet FSO = CreateObject("Scripting.FileSystemObject")Folder = "C:\Users\Wendell\Desktop\New folder\"NewName = "iad_062015.xlsx"For Each File In FSO.GetFolder(Folder).Files    If Left(LCase(Mid(File, InStrRev(File, "\") + 1)), 3) = "iad" Then        Name File As Folder & NewName        Exit For    End IfNextEnd Sub

Atualize as variáveis Folder e NewName conforme desejar.

 

Abraço

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...