ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Renomear Arquivo

Avatar do usuário
cy_rangel
Colaborador
Colaborador
Mensagens: 87
Registrado em: Sex Set 04, 2015 8:32 pm

Renomear Arquivo

Mensagem por cy_rangel » Qua Mai 13, 2020 5:41 pm

Pessoal,

Gostaria de saber se é possível adaptar o código a seguir para que fosse renomeado o lote inteiro clicando no botão uma única vez, não sendo necessário clicar registro por registro para ele gerar cada arquivo individual renomeado.

Código: Selecionar todos

Private Sub Btn_Rename_Click()

On Error GoTo Err_Copiando_Click

Dim ArquivoDeOrigem, ArquivoDeDestino

ArquivoDeOrigem = "C:\Renomear Docts\" & Me!Grupo & ".pdf" ' Define o nome do arquivo de origem.
ArquivoDeDestino = "C:\Renomear Docts\" & Me("Renomear Boleto") & ".pdf"

'Define o nome do arquivo dedestino.
FileCopy ArquivoDeOrigem, ArquivoDeDestino ' Copia a origem no destino.

MsgBox "Arquivo renomeado com sucesso", vbInformation, "INFORMAÇÃO"

Exit_Copiando_Click:

Exit Sub

Err_Copiando_Click:

MsgBox "Arquivo não localizado", vbCritical, "ERRO"

Resume Exit_Copiando_Click

End Sub

Desde já agradeço.
Att
Cy Rangel.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder