Les besoins de code de VBA ont converti MS Excel 2003 2007 - Problèmes et solutions aux problèmes liés à Software


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 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :

'' par PrismP @ http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6
'http://social.msdn.microsoft.com/profile/prizmp/?type=forum&referrer=http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6


Faible pLookIn comme corde
Faibles pSearchSubFolders comme booléens
Faible pFileName comme corde
Faible pFileType comme corde

pFoundFiles publics en tant que nouvelle collection


Class_Initialize secondaire privé ()
    pLookIn = « . »
    pFileType = « * »
    pFileName = « * »
    pSearchSubFolders = faux
    
Sous-marin d'extrémité
Fonction publique NewSearch ()
    Class_Initialize
    Placer les pFoundFiles = nouvelle collection
    
Finir la fonction
La propriété publique obtiennent le compte () comme corde
    Compte = pFoundFiles.Count
Propriété d'extrémité
La propriété publique obtiennent FoundFiles (xx) comme corde
    FoundFiles = pFoundFiles (xx)
Propriété d'extrémité
La propriété publique obtiennent LookIn () comme corde
    LookIn = pLookIn
Propriété d'extrémité
La propriété publique a laissé LookIn (la valeur comme corde)
    pLookIn = valeur
Propriété d'extrémité
La propriété publique obtiennent SearchSubFolders () comme booléenne
    SearchSubFolders = pSearchSubFolders
Propriété d'extrémité
La propriété publique a laissé SearchSubFolders (la valeur comme booléenne)
    pSearchSubFolders = valeur
Propriété d'extrémité
La propriété publique obtiennent le nom de fichier () comme corde
    nom de fichier = pFileName
Propriété d'extrémité
La propriété publique a laissé le nom de fichier (la valeur comme corde)
    pFileName = valeur
Propriété d'extrémité
La propriété publique obtiennent le fileType () comme corde
    fileType = pFileType
Propriété d'extrémité
La propriété publique a laissé le fileType (la valeur comme corde)
    pFileType = valeur
Propriété d'extrémité
La fonction publique s'exécutent () en tant que longtemps

    Obscurcir I en tant que longtemps
    Obscurcir le sLookIn comme corde
    Obscurcir le sDirName comme corde
    Obscurcir le sCurDir comme corde
    Obscurcir le sFileName comme corde
    'Faible FF comme FilesFound
   
    i = 1
    'Placer FF = nouveau FileSearchFound
    sLookIn = pLookIn
    RecurseFolder (sLookIn)
    
    
    
    Exécuter = pFoundFiles.Count
Finir la fonction

Substrater RecurseFolder (le sFolderStart)
    
    sFileName = Dir (sFolderStart et « \ » et pFileName et « . » et pFileType, vbNormal)
    Faire jusqu'à Len (sFileName) = 0

        pFoundFiles.Add (sFolderStart et « \ » et sFileName)
        sFileName = Dir
    Boucle
    Si pSearchSubFolders alors
        sDirName = Dir (sFolderStart et « \ », vbDirectory)
        Faible FoundDirectories en tant que nouvelle collection, xxDir comme variante
        Faire jusqu'à Len (sDirName) = 0
        
            sCurDir = sFolderStart et « \ » et sDirName
            Si GetAttr (sCurDir) = vbDirectory et sDirName <> « . » Et sDirName <> « . » Puis
                sCurDir de FoundDirectories.Add
            Finir si
            sDirName = Dir
        Boucle
        Pour chaque xxDir dans FoundDirectories
            RecurseFolder (xxDir)
        Prochain xxDir
 
    Finir si


Finir le sous-marin
Espace libre public de fonction () en tant que longtemps
    NewSearch
Fonction de fin

Question : Les besoins de code de VBA ont converti MS Excel 2003 2007

Réponse : Les besoins de code de VBA ont converti MS Excel 2003 2007