Você pode facilmente retirar as extensões de arquivo padrão de cordas em seus aplicativos do Microsoft Excel através do Visual Basic for Applications, ou VBA. VBA é uma linguagem de programação usada em aplicativos do Microsoft Office para automatizar tarefas de rotina, como a remoção de extensões de arquivo . Você pode criar uma macro no Excel para executar código VBA com um clique de um botão. Adicionar uma macro no Editor do VB , adicionando comandos VBA que executam quando você executa a macro. Instruções
1
lançar o Microsoft Office Excel, clique em "Developer" e " Visual Basic " para iniciar o Editor do VB . Clique em " Inserir> Módulo " para adicionar um novo módulo de código VBA
2
Adicione o seguinte código para criar uma nova macro Excel: .
Private Sub removeFileExtension ()
3
Definir duas variáveis inteiras e a matriz de cadeia que vai realizar seus nomes de arquivo :
Dim nome do arquivo ( 5) Como StringDim xCntr Como pos IntegerDim as Integer
4
Adicione seus nomes de arquivo para a matriz string:
fileName (0) = " myfile.xlsx " nome do arquivo ( 1) = " myfile2.txt " fileName (2) = " myfile3 . doc " fileName (3) =" myfile4.docx " fileName (4) =" myfile5.xls "
5
Criar um " For ... loop " para retirar as extensões de arquivo padrão do arquivo nomes na matriz :
Para xCntr = 0 To 4POS = InStr ("." 1 , fileName ( xCntr ) , vbTextCompare ) fileName ( xCntr ) = Esquerda ( fileName ( xCntr ) , pos - 1 ) Next xCntr
6
loop através da matriz de cadeia e apresentar os novos nomes de arquivos na primeira coluna da planilha Excel:
Para xCntr = 1 To 5Range ("A" . & xCntr ) SelectRange ("A" & xCntr ) Valor = fileName ( xCntr - 1) Next xCntrEnd Sub
7
Volte para o Microsoft Excel e clique em Input " . " Macros ". removeFileExtension " e clique no botão" Run " para executar a macro e adicionar os novos nomes de arquivos sem extensões.
