Question : Le code de VBA à la boucle par un procédé pour importer EXISTER excellent des dossiers.

Si vous examinez mon bloc de code ci-dessous, vous noterez que j'importe les bilans dont le nom commence par le « gadget » à partir de 3 différents excellent les dossiers (Year1.xlsx, Year2.xlsx, Year3.xlsx).  

I AM recherchant une manière plus efficace d'écrire ce code pour éliminer une partie de la redondance.  Vous noterez pour les sous-marins « ImportSheetsYears1 », « ImportSheetsYears2 », et « ImportSheetsYears3 » qui le code est identique excepté le xlPath de `'.  Ainsi j'ai besoin probablement d'une certaine sorte de boucle, mais je ne suis pas sûr comment coder it.

Also dans la boucle, si le dossier d'exceler n'existe pas ; il devrait le sauter et aller au prochain exceler le dossier.  Si aucun de spécifique n'excelle des dossiers existe, un msgbox devrait mettre le feu et le sous-marin devrait être sorti.  Je suppose qu'un traiteur des erreurs serait la meilleure manière d'aller à ce sujet ?  

Anyhow, merci à l'avance de toutes solutions possibles.  
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
le >Option " de l'id= " codeSnippet793931 de
           
class= de

Réponse : Le code de VBA à la boucle par un procédé pour importer EXISTER excellent des dossiers.

Je suis sûr qu'il y a… mais comme j'ai énoncé, il n'est pas raisonnable.  Comment pourriez-vous le faire ?  Car j'ai dit quelqu'un d'autre posant une question de nature semblable, engager un programmeur/intrus qui peuvent analyser comment Windows fait la mise à niveau au bit 32, quels appels il fait, et ainsi de suite, et par la suite, je suis sûrs qu'ils figureront dehors une manière.  Elle peut coûte 5 ou 6 figures… mais si vous avez l'argent, impossible n'est pas français.

Mis simplement, car d'autres et moi-même ont énoncé que d'une manière ou d'une autre - et je redirai pendant une deuxième fois dans ce commentaire - il n'y a AUCUNE manière RAISONNABLE de faire ceci.  C'est votre réponse.  Aucun technicien raisonnable (car je les définirais) ne passerait n'importe quelle heure significative essayant de faire ceci ainsi lui est FORTEMENT peu probable vous trouvera N'IMPORTE QUI, particulièrement n'importe qui ici, qui ont trouvé une manière de la faire - raisonnable ou autrement.  Expert-Échanger est un grand endroit pour trouver des réponses aux questions et des problèmes qui effectuent des affaires ou votre capacité d'employer un système.  Quand vous voulez faire quelque chose que personne ne pense est une bonne idée ou même possible, vous ne trouverez presque certainement pas une réponse que vous êtes satisfait de même lorsque les réponses apportées sont, manquant davantage de d'évidence à l'effet contraire, 100% précis.
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us