none
Renomear arquivo com o valor da célula A2 RRS feed

  • Pergunta

  • <taghw>Pessoal, gostaria de uma macro que copiasse o valor da célula a2 e renomeasse o arquivo de uma tal pasta para "</taghw>valor na célula A2".dat 
    <taghw>Logo apóis isso eu gostaria que o arquivo "valor na célula A2" fosse movido para outro lugar.</taghw>

    Conheço os comando FileCopy, Name, o problema é que eu gostaria que o nome do arquivo fosse o da célula A2.

    Como referencio isso em VBA

    Isso é o que eu quero: 

    Sub simula()
    <taghw>FileCopy "D:\usuarios\Daniel\Arquivo\</taghw>valor na célula A2.dat", "D:\usuarios\Daniel\Pasta\"valor na célula A2.dat"
    Name "D:\usuarios\Daniel\Pasta\"valor na célula A2.dat" As "InputT.dat"
    End Sub



    Obviamente, quero isso tudo de forma automática(sem ter que digistar o valor da célula A2 no código.Isso eu quero pois se eu alterar o valor da célula A2, automaticamente rodará essa rotina.

    Obrigado! 
    quarta-feira, 22 de fevereiro de 2012 19:35

Respostas

  • coloque assim:

    FileCopy "D:\usuarios\Daniel\Arquivo\" & Range("A2").Value & ".dat", _

    "D:\usuarios\Daniel\Pasta\" & Range("A2").Value & ".dat" Name "D:\usuarios\Daniel\Pasta\" & Range("A2").Value & ".dat" As "D:\usuraios\Daniel\Pasta\InputT.dat"



    quarta-feira, 22 de fevereiro de 2012 22:47