Ouvrez les fichiers avec Excel VBA

FONTE ZOOM:
Une routine très fréquemment utilisé dans Excel VBA est l'ouverture de fichiers et importer du contenu à partir d'autres fichiers afin de les évaluer davantage. Ici vous trouverez une procédure variable qui peut être rapidement adapté selon les besoins.

Supposons que vous souhaitez utiliser un fichier appelé Daten.xlsx ou DATA.XLS dans le répertoire C: \ data est stocké.

La meilleure façon jamais une fois pour obtenir une routine dans VBA montré, est toujours l'enregistreur de macros. Il est particulièrement utile quand une syntaxe complexe pour être présenté avec de nombreux paramètres dans VBA.

L'enregistreur de macros peut être trouvé dans Excel 2003 sous Outils / Macros / macro enregistrée dans Excel 2010 est sous les outils de développement / code / macro enregistrement.

Comme une procédure qui a été créée en utilisant l'enregistreur de macros, il ressemble à ceci:

Sub Macro1

'

'Macro Macro1

'

'

ChDir "C: \ data"

Workbooks.Open Nom du fichier: = "C: \ Data \ Daten.xlsx"

End Sub

Quelques notes: Les lignes qui commencent par l'apostrophe sont des lignes de commentaires qui sont ignorés lorsque le programme est exécuté. Ci-dessous, il est utilisé pour l'explication du code.

Il est facile de voir, l'enregistreur macro qui a enregistré exactement ce qui a été fait, "Open Daten.xlsx à partir du répertoire C: \ data".

Cela pourrait bien être présent et suffisamment puis - et si le nom de fichier ou de répertoire changement fois, bien sûr, vous pouvez régler le code en conséquence ou de ré-enregistrer la macro. Vraiment pratique, mais ce est pas beau ce serait si le code est variable.

Et ce est ce que je veux vous montrer.

Variable Code

Supposons que le fichier est un jour et a la date appropriée dans le nom de fichier. Les fichiers doivent être appelés comme "20120618_Daten.xlsx".

Si nous supposons un cas simple qu'une fois le fichier de cette journée est d'évaluer de façon précise le jour, vous pouvez utiliser la date du système. La procédure pourrait ressembler - y compris la date de conversion nécessaire - comme ceci .:

Sous Macro2

Date = date'liefert la date actuelle du système correspond à la fonction Excel AUJOURD'HUI

Date = format 'formate la date dans un texte qui correspond au format requis

ChDir "C: \ data"

Workbooks.Open Nom du fichier: = "C: \ Data \" & Date et "_Daten.xlsx« construit la date dans le nom de fichier

End Sub

PS: Si vous souhaitez recevoir plus de conseils pour traiter avec Excel, je recommande à mes Office 2010 films Tutoriel

VOIR AUSSI:
  1.  
  2.  
  3.  
Sans commentaires

Laisser un commentaire

Code De Sécurité