none
Macro renomear arquivo com nome indefinido RRS feed

  • Pergunta

  • Boa tarde, 

     

    Sou leigo na arte do macro/vba ainda e estou precisando de uma ajuda 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
    segunda-feira, 31 de agosto de 2015 20:17

Respostas

  • Sub Renomear()
        Const DIRECTORY_PATH  As String = "Z:\MACRO\"
        Dim FileName As String
        
        FileName = Dir(DIRECTORY_PATH & "iad*")
        
        If FileName = "" Then Exit Sub
        
        Name DIRECTORY_PATH & FileName As "Z:\MACRO\iad_062015.xlsx"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Sp_Roberto quinta-feira, 3 de setembro de 2015 15:29
    terça-feira, 1 de setembro de 2015 12:54
    Moderador

Todas as Respostas

  • Sub Renomear()
        Const DIRECTORY_PATH  As String = "Z:\MACRO\"
        Dim FileName As String
        
        FileName = Dir(DIRECTORY_PATH & "iad*")
        
        If FileName = "" Then Exit Sub
        
        Name DIRECTORY_PATH & FileName As "Z:\MACRO\iad_062015.xlsx"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Sp_Roberto quinta-feira, 3 de setembro de 2015 15:29
    terça-feira, 1 de setembro de 2015 12:54
    Moderador
  • Obrigado Felipe !!!!!!

    Revolvido .....

    quinta-feira, 3 de setembro de 2015 15:27