Cómo Strip Patrón extensiones de archivo de las cadenas de Macros Excel

Puede quitar fácilmente las extensiones de archivos de patrones de cadenas en las aplicaciones de Microsoft Excel mediante Visual Basic para Aplicaciones o VBA. VBA es un lenguaje de programación que se utiliza en las aplicaciones de Microsoft Office para automatizar tareas rutinarias , tales como la eliminación de las extensiones de archivo . Puede crear una macro en Excel para ejecutar código VBA con un clic de un botón. Añadir una macro en el Editor de Visual Basic mediante la adición de VBA comandos que se ejecutan cuando se ejecuta la macro. Instrucciones
1

lanzamiento de Microsoft Office Excel , a continuación, haga clic en " desarrolladores" y " Visual Basic " para iniciar el Editor de Visual Basic . Haga clic en " Insertar> Módulo " para añadir un nuevo módulo de código VBA
2

Agregue el código siguiente para crear una nueva macro de Excel : .

Private Sub removeFileExtension ()

3

Definir dos variables enteras y la matriz de cadena que contendrá los nombres de archivo :

fileName Dim ( 5 ) Como StringDim xCntr Como IntegerDim pos As Integer
4

Añada los nombres de archivo de la matriz de cadenas :

fileName ( 0 ) = nombre de archivo " myfile.xlsx " ( 1 ) = " myfile2.txt " nombre de archivo ( 2 ) = " miarchivo3 . doc " nombre de archivo ( 3 ) =" " nombre de archivo ( 4 ) =" myfile4.docx myfile5.xls "
5

Crear un " For ... Loop " para quitar las extensiones de archivos de patrones del archivo nombres de la matriz :

Para xCntr = 0 Para 4POS = InStr ( 1 , nombre de archivo ( xCntr ) , vbTextCompare ".") fileName ( xCntr ) = Left ( nombre de archivo ( xCntr ) , pos - 1 ) Siguiente xCntr
6

Loop a través de la matriz de cadenas y mostrar los nuevos nombres de archivo en la primera columna de la hoja de cálculo Excel :

Para xCntr = 1 Para 5Range ("A" . . y xCntr ) SelectRange ("A" y xCntr ) Valor = nombre de archivo ( xCntr - . " Macros " 1 ) Siguiente xCntrEnd Sub
7

volver a Microsoft Excel y haga clic en la entrada " removeFileExtension " y haga clic en el botón" ejecutar " para ejecutar la macro y agregar los nuevos nombres de archivos sin extensiones .