none
RENOMEAR UM ARQUIVO DE TEXTO BASEADO NO VALOR DE UMA CÉLULA RRS feed

  • Pergunta

  • Preciso renomear um arquivo que está em meu PC, mas o nome do arquivo a ser renomeado deverá ser baseado no valor da célua H28 da minha planilha.

     

    Onde está o nome AQUIVO2.txt deverá ser o valor da célula H28 mais a extensão .txt.

     

    Private Sub renomeia()

    Name "C:\ARQUIVO.txt" As "C:\ARQUIVO2.TXT"
           
    End Sub

     

    Como faço isso?

    Se alguém puder me ajudar agradeço muito

     

    Geraldo Ribeiro

    segunda-feira, 23 de maio de 2011 13:57

Respostas

  • Geraldo boa noite,

    Fiz um algoritmo onde você poderá digitar tanto o nome atual do arquivo quanto o novo nome, segue sua solução:

    Sub RenomeiaArquivo()

    'Diretório onde está o arquivo
    MyPath = "C:\temp\"
    'Célula onde irá digitar o nome atual do arquivo
    MyFile = Sheet1.Range("H27")
    'Célula onde irá digitar o novo nome do arquivo
    NewName = Sheet1.Range("H28")
    'Verifica se o path e o nome do arquivo for diferente de vazio ele irá renomear o arquivo
    If Dir(MyPath & MyFile) <> "" Then
       Name MyPath & MyFile As MyPath & NewName
    Else
       MsgBox "Arquivo não existe!"
    End If
    End Sub

    'Botão que executa o rename (Deve ser inserido um botão para a execução e inserido o código abaixo
    Private Sub CommandButton1_Click()
    RenomeiaArquivo
    End Sub

     

    Geraldo testei aqui e funcionou legal, espero ter ajudado, se sim, por favor marcar como resposta.

    Abraços,


    Carlos Carvalho Citrangulo Junior
    Microsoft Certified Professional
    Microsoft Certified Desktop Support Technician
    MCTS Microsoft Windows Vista Configuration
    MCITP Enterprise Support Technician
    Profissional 5 Estrelas Microsoft
    http://carloscitrangulo.wordpress.com
    segunda-feira, 23 de maio de 2011 23:07

Todas as Respostas

  • Geraldo boa noite,

    Fiz um algoritmo onde você poderá digitar tanto o nome atual do arquivo quanto o novo nome, segue sua solução:

    Sub RenomeiaArquivo()

    'Diretório onde está o arquivo
    MyPath = "C:\temp\"
    'Célula onde irá digitar o nome atual do arquivo
    MyFile = Sheet1.Range("H27")
    'Célula onde irá digitar o novo nome do arquivo
    NewName = Sheet1.Range("H28")
    'Verifica se o path e o nome do arquivo for diferente de vazio ele irá renomear o arquivo
    If Dir(MyPath & MyFile) <> "" Then
       Name MyPath & MyFile As MyPath & NewName
    Else
       MsgBox "Arquivo não existe!"
    End If
    End Sub

    'Botão que executa o rename (Deve ser inserido um botão para a execução e inserido o código abaixo
    Private Sub CommandButton1_Click()
    RenomeiaArquivo
    End Sub

     

    Geraldo testei aqui e funcionou legal, espero ter ajudado, se sim, por favor marcar como resposta.

    Abraços,


    Carlos Carvalho Citrangulo Junior
    Microsoft Certified Professional
    Microsoft Certified Desktop Support Technician
    MCTS Microsoft Windows Vista Configuration
    MCITP Enterprise Support Technician
    Profissional 5 Estrelas Microsoft
    http://carloscitrangulo.wordpress.com
    segunda-feira, 23 de maio de 2011 23:07
  • Muito obrigado amigo serviu direitinho. Do jeito que eu queria.

     

    Obrigado mesmo.

    quarta-feira, 25 de maio de 2011 16:34