Du kan enkelt remsor förlängningar mönsterfil från strängar i dina Microsoft Excel program via Visual Basic for Applications , eller VBA . VBA är ett programmeringsspråk som används i Microsoft Office-program för att automatisera rutinuppgifter såsom att ta bort filändelser . Du kan skapa ett makro i Excel för att köra VBA -kod med ett klick på en knapp . Lägg ett makro i VB Editor genom att lägga till VBA -kommandon som utför när du kör makrot . Instruktioner
1
Launch Microsoft Office Excel , klicka sedan på " Developer " och " Visual Basic " för att starta VB Editor . Klicka på " Infoga > Modul " för att lägga till en ny VBA kodmodul
2
Lägg till följande kod för att skapa en ny Excel- makro : .
Private Sub removeFileExtension ( ) katalog
3
Definiera två heltalsvariabler och sträng array som kommer att hålla dina filnamn :
Dim fileName ( 5 ) Eftersom StringDim xCntr som IntegerDim pos As Integer
4
Lägg dina filnamn till strängmatris :
fileName ( 0 ) = " myfile.xlsx " filnamn ( 1 ) = " myfile2.txt " filnamn ( 2 ) = " myfile3 . doc "filnamn ( 3 ) = " myfile4.docx "filnamn ( 4 ) = " myfile5.xls "
5
Skapa ett " för ... Loop " för att tömma förlängningar mönster fil från namnen i arrayen :
för xCntr = 0 till 4pos = InStr ( 1 , Filnamn ( xCntr ) , vbTextCompare " . " ) fileName ( xCntr ) = Vänster ( filnamnet ( xCntr ) , pos - 1 ) Nästa xCntr
6
slinga genom sträng array och visa de nya filnamnen i den första kolumnen i ditt Excel-ark :
för xCntr = 1 att 5Range ( " A " . . & xCntr ) SelectRange ( " A " & xCntr ) Value = fileName ( xCntr - " . makron " 1 ) Nästa xCntrEnd Sub
7
Växla tillbaka till Microsoft Excel och klicka Input " removeFileExtension " och klicka på " kör " knappen för att köra makrot och lägg de nya filnamnen utan tillägg .
