IGNORAR ULTIMAS LETRAS
Boa noite, estou precisando pegar o nome do arquivo em si que está aberto, que no caso é uma planilha do Excel, eu faço assim...
Mas ele me retorna a extensão do arquivo, Planilha.xlsm, e eu preciso que retorne somente Planilha, sem a extensão.
Não sei se existe uma maneira de pegar somente o nome ou em uma outra possibilidade excluir os 5 ultimos caracteres, isso também resolveria.
Obrigado a todos desde já.
Abraço!
Application.ThisWorkbook.Name Mas ele me retorna a extensão do arquivo, Planilha.xlsm, e eu preciso que retorne somente Planilha, sem a extensão.
Não sei se existe uma maneira de pegar somente o nome ou em uma outra possibilidade excluir os 5 ultimos caracteres, isso também resolveria.
Obrigado a todos desde já.
Abraço!
Use o método [Ô]Split[Ô], ele divide uma string em uma array baseado em algum caracter separador. Mais ou menos assim:
dim nome as string
nome = Split(Application.ThisWorkbook.Name,[Ô].[Ô])(0)
msgbox nome
Voce também pode usar o replace:
Não lembro bem qual é a extensão dos arquivos de excel mas
troque o [txt-color=#0000f0].xmls[/txt-color] pela extensão que vai
funcionar.
replace (Application.ThisWorkbook.Name,[Ô].xmls[Ô],[Ô][Ô])Não lembro bem qual é a extensão dos arquivos de excel mas
troque o [txt-color=#0000f0].xmls[/txt-color] pela extensão que vai
funcionar.
Tópico encerrado , respostas não são mais permitidas