Cómo Franja de extensiones de archivos de patrones a partir de cadenas de macros de Excel

Usted puede quitar fácilmente las extensiones de archivos de patrones de cadenas en las aplicaciones de Microsoft Excel a través de Visual Basic para Aplicaciones, o VBA. VBA es un lenguaje de programación utilizado en 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 comandos de VBA 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 cadenas que contendrá los nombres de archivo:

nomArchivo dim (5) As String
Dim xCntr como número entero
pos As Integer Dim

4 Añadir los nombres de archivo de la matriz de cadenas:

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

5 Crear un "bucle For ..." para despojar a las extensiones de archivos de patrones a partir de los nombres de archivo de la matriz:

Para xCntr = 0 a 4

pos = InStr(1, fileName(xCntr), ".", vbTextCompare)
fileName(xCntr) = Left(fileName(xCntr), pos - 1)

Siguiente xCntr

6 Bucle 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 a 5

Range("A" & xCntr).Select
Range("A" & xCntr).Value = fileName(xCntr - 1)

Siguiente xCntr
End Sub

7 Cambie de nuevo a Microsoft Excel y haga clic en "Macros." Entrada "removeFileExtension" y haga clic en el botón "Ejecutar" para ejecutar la macro y añadir los nuevos nombres de archivos sin extensiones.