October 11, 2008 10:51am pdt

1. matthews... 213,331
2. war1 202,674
3. rorya 183,904
4. zorvek 179,687
5. saurabh726 167,287
6. GrahamSkan 155,382
7. chris_bot... 112,525
8. BlueDevilF... 99,748
9. KCTS 90,154
10. byundt 87,578
11. RobSamp... 80,750
12. ahammar 80,507
13. redrumkev 70,225
14. dlc110... 64,510
15. GlennaShaw 63,666
16. merowinger 50,098
17. nutsch 49,422
18. clayfox 46,230
19. patrickab 44,509
20. capricorn1 43,711
21. JOrzech 41,575
22. webtubbs 38,800
23. brettdj 38,550
24. apache09 34,525
25. boag2000 33,376

1. bruintje 1,636,436
2. byundt 798,765
3. matthews... 586,841
4. ture 388,739
5. rorya 380,181
6. Dreamboat 369,995
7. zorvek 357,537
8. war1 344,616
9. calacuccia 340,042
10. GrahamSkan 323,104
11. cri 320,538
12. KCTS 210,097
13. smozgur 203,366
14. brettdj 198,129
15. antrat 197,847
16. ahammar 171,677
17. saurabh726 169,787
18. p912s 161,798
19. sebastienm 155,935
20. R_Rajesh 151,140
21. sunray_... 143,120
22. chris_bot... 141,462
23. tajsimmons 134,823
24. roos01 134,364
25. RobSamp... 134,295

07.08.2008 at 10:39AM PDT, ID: 23547543

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Slow program execution in VBA

Asked by ScotTFO in Microsoft Office Suite, Visual Basic Programming, Microsoft Excel Spreadsheet Software

Tags: Microsoft, Office, 2003, Excel, VBA

I am currently using this code which does work, but it's SLOW...

I was wondering if there was an alternative method or a way I could speed up this code.

It's searching a directory and it's sub-directories for files that are either xls or doc then counting them all up.
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

           
           
             With Application.FileSearch
        .LookIn = strSourceFolder
        .FileType = msoFileTypeAllFiles
        .searchSubFolders = True
        .Execute
         
        For x = 1 To .FoundFiles.Count
            i = x
            On Error GoTo Skip
             
            Set objFile = objFSO.GetFile(.FoundFiles(x)) 
            If Right(objFile.Name, 3) = "xls" Or Right(objFile.Name, 3) = "doc" Then
                PopulateDirectoryList = PopulateDirectoryList + 1
            End If
            
Skip:
        Next x
         
    End With

           
         

Keywords: Slow program execution in VBA

	Title
1	InnoDB COUNT(id) - Why so slow?
2	Network Slow
3	DataSet readXML is too slow
4	Slow Microsoft Word Files....looki…
5	My Laptop is Slow And I Keep Getting …
6	A particular Word Document slow to o…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Slow program execution in VBA

Asked by ScotTFO in Microsoft Office Suite, Visual Basic Programming, Microsoft Excel Spreadsheet Software

Tags: Microsoft, Office, 2003, Excel, VBA

About this solution