|
Vous pouvez facilement enlever les extensions de fichiers de signatures de chaînes dans vos applications Microsoft Excel via Visual Basic pour Applications, ou VBA. VBA est un langage de programmation utilisé dans les applications Microsoft Office pour automatiser les tâches de routine telles que la suppression des extensions de fichier. Vous pouvez créer une macro dans Excel pour exécuter du code VBA avec un clic d'un bouton. Ajouter une macro dans l'éditeur VB VBA en ajoutant des commandes qui s'exécutent lorsque vous exécutez la macro. Instructions
1 lancement de Microsoft Office Excel , puis cliquez sur " Developer " et " Visual Basic " pour lancer l'éditeur VB . Cliquez sur " Insérer> Module " pour ajouter un nouveau module de code VBA
2 Ajoutez le code suivant pour créer une nouvelle macro Excel : .
Private Sub removeFileExtension ()
3 définir deux variables entières et le tableau de chaînes qui contiendra vos noms de fichiers :
fileName Dim ( 5) Comme StringDim xCntr Comme IntegerDim pos As Integer
4 Ajoutez vos noms de fichiers pour le tableau de chaînes :
nom de fichier ( 0) = filename " myfile.xlsx " ( 1) = " myfile2.txt " nom de fichier ( 2) = " myfile3 . " nom de fichier ( 3) = " doc " nom de fichier ( 4) =" myfile4.docx myfile5.xls "
5 créer une« boucle For ... " pour enlever les extensions de fichiers de signatures à partir du fichier noms dans le tableau :
xCntr = 0 To 4pos = InStr (1, nom de fichier ( xCntr ) , vbTextCompare " . " ) nom ( xCntr ) = Gauche ( nom de fichier ( xCntr ) , pos - 1 ) Suivant xCntr
6 boucle à travers le tableau de chaînes et affiche les nouveaux noms de fichiers dans la première colonne de votre feuille de calcul Excel :
xCntr = 1 To 5Range ("A" . . & xCntr ) selectRange ("A" & xCntr ) Value = nom de fichier ( xCntr - " . Macros " 1) Suivant xCntrEnd Sous
7 Revenez à Microsoft Excel et cliquez sur entrée " removeFileExtension "et cliquez sur le bouton" exécuter " pour exécuter la macro et ajouter les nouveaux noms de fichiers sans extensions.
|
