Astuces Excel
  1. Astuces Excel
  3. Déplacez les files Excel d'une source vers différents dossiers – Excel VBA
Intereting Posts
Automatisation des totaux sommaires Sumproduct Excel une condition deux colonnes à multiplier et à append Déplacez dynamicment datatables d'une table vers l'autre en excel vba Utilisation d'une macro pour sortinger datatables du logiciel d'instrumentation La macro d'autofilter renvoie seulement 0 valeurs Comment changer la source de données de requête MS dans excel avec vba? Comment faire un file xml dans c # pour une utilisation avec .iqy qui importe en tant que datable Normalize / scale data set Microsoft Excel Macro – Erreur d'exécution '438' Grails Excel Importer Validation avec Excel, Excel 2007 et CSV Importer utilisant Apache POI Excel ne reconnaît pas la date en utilisant openpyxl Comment vérifier si le text réel dans la cellule existe déjà dans la colonne excel Comment modifier le format du mois de Fill Series dans Excel? Comment puis-je exporter un format DBGrid vers OOXML (format Excel 2007/2010) sans Excel installé? Mettre datatables en feuille sur la timer pour une présentation Excel

Déplacez les files Excel d'une source vers différents dossiers – Excel VBA

J'ai un set de files excel nommés apple.xlsx, mango.xlsx etc. Tous ces éléments sont dans "C: \ Users \ Public \ Fruits \". J'ai stocké tous les noms de fruits dans fruits.xlsx. Je suis débutant dans Excel-VBA. Puis-je savoir comment déplacer ces files vers les dossiers Apple, Mango jusqu'à 500 dossiers pour 500 fruits différents?

Vous pouvez utiliser l' énoncé de nom pour modifier le nom et l'location des files.

Par exemple: 

Name "C:\Example_Folder_1\apple.xlsx" As "C:\Example_Folder_2\apple.xlsx"

Cela déplacera le file dans Example_Folder_2 de Example_Folder_1 .

Vous pouvez combiner ceci avec une boucle si vous avez déjà les noms de tous vos files. Par exemple, si la list des fruits était dans la gamme A2:A500 comme ceci: 

  | A 1|Fruits 2|Apple 3|Mango 4|Pear 5|Banana

Vous pourriez faire ceci: 

 Sub MoveFiles() Dim flName as Ssortingng, OldFldr as Ssortingng, NewFldr as Ssortingng Dim Cell as Range 'Set old folder name OldFldr = "C:\Users\Public\Fruits\" 'Loop through fruits For each Cell in Thisworkbook.Sheets("Fruits").Range("A2:A500") 'Set new folder name NewFldr = OldFldr & Cell.Value 'Check whether new fruit specific folder already exists and if not, create it If Dir(NewFldr , vbDirectory) = "" Then MkDir (NewFldr & "\") End If 'Set filename flName = Cell.Value & ".xlsx" 'Move file to new folder Name Oldfldr & flName As NewFldr & "\" & flName Next Cell End Sub

Cela mettra vos files spécifiques aux fruits dans des dossiers spécifiques aux fruits.