Come mettere a nudo modello estensioni di file da stringhe in Excel macro

July 15

Si può facilmente striscia estensioni dei file modello da stringhe nelle applicazioni di Microsoft Excel tramite Visual Basic, Applications Edition, o VBA. VBA è un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per automatizzare le attività di routine, come la rimozione di estensioni di file. È possibile creare una macro in Excel per eseguire codice VBA con un clic di un pulsante. Aggiungere una macro in Editor VB con l'aggiunta di comandi VBA che si eseguono quando si esegue la macro.

istruzione

1 Avviare Microsoft Office Excel, quindi fare clic su "Sviluppatore" e "Visual Basic" per avviare l'editor di VB. Fai clic su "Inserisci> Modulo" per aggiungere un nuovo modulo di codice VBA.

2 Aggiungere il seguente codice per creare una nuova macro di Excel:

Private Sub removeFileExtension ()

3 Definire due variabili intere e la matrice di stringhe che conterrà i nomi di file:

fileName Dim (5) As String
Dim xCntr As Integer
pos fioco come Integer

4 Aggiungere i nomi di file per la matrice di stringhe:

fileName (0) = "myfile.xlsx"
fileName (1) = "myfile2.txt"
fileName (2) = "myfile3.doc"
fileName (3) = "myfile4.docx"
nome del file (4) = "myfile5.xls"

5 Creare un "Per ... Loop" per mettere a nudo le estensioni dei file di pattern dei nomi dei file nella matrice:

Per xCntr = 0 a 4

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

Successivo xCntr

6 Loop attraverso l'array di stringhe e visualizzare i nuovi nomi di file nella prima colonna del foglio di calcolo di Excel:

Per xCntr = 1 Per 5

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

Successivo xCntr
End Sub

7 Tornare a Microsoft Excel e fare clic su "Macro." Input "removeFileExtension" e fare clic sul pulsante "Esegui" per eseguire la macro e aggiungere i nuovi nomi di file senza estensioni.


Articoli Correlati