Come striscia modello di estensioni di file da stringhe di macro di Excel

Conoscenza Informatica

Home Hardware Networking Programmazione Software Domanda Sistemi

* Conoscenza Informatica >> software >> Microsoft Access >> .

Come striscia modello di estensioni di file da stringhe di macro di Excel

Si può facilmente togliere le estensioni dei file di pattern 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 il codice VBA con un clic di un pulsante . Aggiungi una macro in Visual Basic Editor , aggiungendo comandi VBA che vengono eseguite quando si esegue la macro . Istruzioni
1

lancio di Microsoft Office Excel , quindi fare clic su " Developer " e " Visual Basic " per lanciare il VB Editor. Fare 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 ( ) per
3

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

Dim fileName (5) Come StringDim xCntr Come IntegerDim Ruolo As Integer
4

Aggiungi i nomi di file per la matrice di stringhe :

fileName ( 0 ) = filename " myfile.xlsx " ( 1 ) = " myfile2.txt " nomefile ( 2) = " myfile3 . "nomefile ( 3) = " doc " fileName ( 4) = " myfile4.docx myfile5.xls "
5

Creare un " ciclo FOR ... " mettere a nudo le estensioni dei file di pattern dal file I nomi nella matrice :

xCntr = 0 Per 4POS = InStr ( 1 , fileName ( xCntr ) , vbTextCompare ".") fileName ( xCntr ) = Sinistra ( fileName ( xCntr ) , pos - 1 ) Successivo xCntr
6

loop attraverso la matrice di stringhe e visualizzare i nuovi nomi di file nella prima colonna del foglio di calcolo Excel :

xCntr = 1 To 5Range ( " a" . . & xCntr ) SelectRange ( " a" & xCntr ) Valore = nomefile ( xCntr - " . Macro " 1) Avanti xCntrEnd Sub
7

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