U kunt eenvoudig strip patroon bestandsextensies van strings in uw Microsoft Excel- applicaties via Visual Basic for Applications , of VBA . VBA is een programmeertaal die wordt gebruikt in Microsoft Office -toepassingen om routinetaken zoals het verwijderen van bestandsextensies automatiseren . U kunt een macro in Excel VBA code uitvoeren met een klik op een knop te creëren . Een macro in de VB -editor toe te voegen door VBA commando's welke uitgevoerd worden wanneer u de macro uitvoert voegen . Instructies
1 Lancering Microsoft Office Excel , klik op "Ontwikkelaar " en " Visual Basic " om de VB -editor te starten . Klik op ' Invoegen> Module " om een nieuwe VBA-code -module toe te voegen kopen van 2 Voeg de volgende code om een nieuwe Excel- macro te maken : . Private Sub removeFileExtension
( ) op Twitter
3 Definieer twee integer variabelen en de string array die zal houden uw bestandsnamen : Dim fileName
( 5 ) Aangezien StringDim xCntr Zoals IntegerDim pos als Geheel
4 Voeg uw bestandsnamen aan de string -array : fileName
( 0 ) = " myfile.xlsx " fileName ( 1 ) = " myfile2.txt " fileName ( 2 ) = " myfile3 . doc " fileName ( 3 ) = " myfile4.docx " fileName ( 4 ) = " myfile5.xls "
5 Maak een" For ... Loop " om het patroon bestandsextensies uit het bestand te strippen namen in de array :
xCntr = 0 Om 4POS = InStr ( 1 , fileName ( xCntr ) , , vbTextCompare " . " ) fileName ( xCntr ) = Links ( fileName ( xCntr ) , pos - 1 ) Volgende xCntr
Loop 6 door de string array en geeft de nieuwe bestandsnamen in de eerste kolom van het Excel- spreadsheet :
xCntr = 1 To 5Range ( " A " . . & xCntr ) SelectRange ( " A " & xCntr ) Value = fileName ( xCntr - " . Macro's " 1 ) Volgende xCntrEnd Sub
Schakelaar 7 terug naar Microsoft Excel en klik op Input " removeFileExtension " en klik op de " Run " knop om de macro uit te voeren en voeg de nieuwe bestandsnamen zonder extensies .
|
