Sucesso Neste vídeo Vamos trabalhar com códigos Excel VBA para renomear arquivo beleza pessoal então vamos trabalhar Primeiro passo é fazer os códigos.
Para selecionar o arquivo e capturar o link URL eu vou fazer códigos em um Bot de comando então dup clique sobre o Bot de comando e antes de fazer códigos do.
Botão nós precisamos acima de todos os códigos uma variável do tipo Public Public eu vou chamar esta variável de URL as string do tipo.
Texto definimos a variável Já podemos fazer os códigos do botão de comando Começando por um sistema de tratamento de erro on.
Duplas vírgula BB Critical vírgula abre aspas duplas título da mensagem carregar e fecha as aspas duplas por enquanto deixem desativado o.
Sistema de tratamento de erro prosseguindo precisamos capturar o link URL do arquivo podem copiar a variável.
URL e a variável URL vai ser igual a application.get Open filename e abre e fecha parênteses na sequência precisamos.
Verificar se foi selecionado um arquivo então if se a variável URL for igual abre aspas duplas a falso fecha as aspas duplas.
Then neste caso nós vamos sair dos códigos colocando Exit sub e para fechar o if end if se passou por este if significa que foi selecionado um.
Veja Também:
- Planilha de Cálculo de Fretes Fracionados por Faixas de Cep em Excel 6.0
- Aula Completa de Power Point do ZERO a APRESENTAÇÃO
- Definindo as configurações das carteirinhas da planilha cadastro de membros
Arquivo neste caso eu vou colocar o link
URL na text box um do meu formulário copiei o nome da textbox de volta no código textbox 1. value igual a variável URL beleza fizemos a primeira parte do.Código Já podemos testar executando o formulário clicando no botão de comando abre a janela do Explorer selecionando o arquivo Abrir.
Show de bola pessoal já Está capturando o link URL do arquivo próximo passo é fazer os códigos para renomear o arquivo fechei o formulário agora.
Pessoal os códigos para renomear eu vou colocar em outro botão de comando duplo clique sobre o botão de comando Deixa eu subir um pouco para facilitar a.
Visualização e neste botão precisamos colocar também um sistema de tratamento de erro para facilitar eu copiar do botão anterior Mas nesta parte final eu vou.
Trocar o título da mensagem agora vai ser renomear colocamos o sistema de tratamento de erro próximo passo é definir as variáveis da nossa macro.
Din primeira variável eu vou chamar de Caminho Antigo as string vírgula outra variável eu vou chamar de caminho novo também do tipo texto as string e eu preciso também manipular a.
Pasta as string vírgula nome as string vírgula e também precisamos manipular a extensão do arquivo as string.
Dinm esta variável pessoal eu vou chamar de utb para a última barra para localizar a posição da última barra na URL as Double do tipo número vírgula e eu preciso também saber a posição do.
Ponto que separa a extensão do link
Eu vou chamar esta variável de pp as Doble do tipo número beleza definimos as variáveis agora nós precisamos verificar se a variável URL é igual a vazio.If variável URL se for igual a íp que é vazio neste caso eu vou alertar o usuário utilizando uma.
Msgbox msg Box abre aspas duplas precisa informar URL do arquivo ponto de exclamação e fecha as.
Aspas duplas vírgula VB exclamation vírgula abre aspas duplas título da mensagem renomear e fecha as aspas duplas E se eu.
Não tenho o RL eu vou sair dos códigos colocando Exit e para fechar o if if Beleza verificamos se tem uma URL.
Se passou por este if eu vou capturar a URL e colocar na variável Caminho Antigo podem copiar a variável Caminho Antigo vai ser igual a variável URL próximo passo é localizar a posição.
Da última barra então podem copiar a variável utb e a variável utb vai ser igual ao comando.
In STR STR rev e abre e fecha parênteses e dentro dos parênteses vai a nossa variável.
Caminho Antigo vírgula abre e fe aspas duplas e dentro das aspas duplas vocês vão colocar uma barra.
Invertida este código serve para localizar a posição da última barra agora nós precisamos localizar a posição do ponto podem copiar a variável PP e a variável PP.
Vai ser o mesmo esquema da variável utb podem Copiar esta parte e agora nós vamos alterar a barra por ponto beleza localizamos a posição da Barra e também do ponto Agora nós.
Precisamos extrair da variável Caminho Antigo somente a parte da URL correspondente ao endereço da pasta então podem copiar a variável.
Pasta copia e cola e a variável pasta vai ser igual a VBA ponle porque nós vamos capturar a parte do link URL a partir da esquerda da última a.
Barra abre e fecha parênteses e dentro dos parênteses vai a nossa variável Caminho Antigo vírgula Qual a posição da última barra nós sabemos pela variável utb podem copiar e colar depois da.
Vírgula Beleza já temos o link URL da pasta agora nós precisamos capturar a extensão do arquivo no entanto eu vou capturar a extensão do arquivo somente se a posição.
Do ponto for maior que a posição da última barra então agora nós vamos trabalhar com o if if c a variável PP maior que a variável.
Utb neste caso nós vamos trabalhar com a variável extensão podem copiar colar dentro do IF e a variável extensão ela vai ser igual a.
VBA abre e fecha e dentro dos parênteses vai a nossa variável URL vírgula e a variável P que está especificando a.
Posição no entanto se entrar no eu preciso alertar o usurio que este endereço não tem extensão então msg Box abre aspas duplas endereço.
Sem extensão ponto de exclamação e fecha as aspas duplas vírgula VB exclamation vírgula abre aspas duplas.
Título da mensagem renomear e fecha as aspas duplas Preciso sair da macro Exit sub e para fechar o if end if Beleza já temos a extensão do.
Arquivo Agora eu preciso do nome para o arquivo então podem copiar a variável nome copia e cola depois do IF no meu caso eu vou informar o novo nome para o arquivo na textbox 2 peguei o nome da.
Textbox de volta no código variável nome vai ser igual a textbox 2 p text Beleza capturei o novo nome do arquivo Agora eu preciso.
Verificar se a variável nome é igual a vazio Pode ser que o usuário não informou o nome e clicou no botão renomear então if variável nome se for igual a í.
Then neste caso eu preciso alertar o usuário utilizando uma msgbox MS SG Box abre aspas duplas eu vou colocar precisa informar novo.
Nome para o arquivo ponto de exclamação e fecha as aspas duplas vírgula VB exclamation vírgula abre aspas duplas título da mensagem.
Renomear e fecha as aspas duplas Precisamos sair da macro Exit sub e if para fechar o if no entanto se passou por este if eu posso montar o novo caminho do.
Arquivo então agora nós vamos trabalhar com a variável caminho novo podem copiar e colar depois do IF e a variável caminho novo vai ser igual a variável pasta e.
Comercial mais o nome do arquivo variável nome mais um e comercial e a variável extensão desta forma nós Montamos o novo link URL do arquivo juntamente com o.
Postar um comentário