January 9, 2009 01:56pm pst

10.16.2008 at 06:58AM PDT, ID: 23820327

	[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.1

Freeze Panes through .VBS Script

Asked by smyers051972 in Automation, Microsoft Excel Spreadsheet Software

Tags: Microsoft, Office Excel, 2003, VB Script Question

I have a script that will freeze panes and a few other things like turn auto filter on etc.
What I am needing it to do is what it does now AND apply it to all workbooks in the same file,
looks like it is selecting by .ActiveSheet but I am unsure how to select and apply to ALL of them.

Thanks and code is attached.
Start Free Trial

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

           
           
             ednetmanFormatExcel "c:\monthly\Report.xls"
 
Sub ednetmanFormatExcel(ByVal vFilePath)
 Dim xlApp
 Set xlApp = CreateObject("excel.application")
 With xlApp.Workbooks.Open(vFilePath) 'open file
  With .ActiveSheet
   .Rows(1).Font.Bold = True '1.  Bold the headers (always in row 1)
   .AutoFilterMode = False 'turn off any existing autofilter just in case
   .Rows(1).AutoFilter '2. Turn on AutoFilter for all coloms
   .Columns.AutoFit '3. Set Column width to AutoFit Selection
   '4. Set a freeze under column 1 so that the header is always present at the top
   .Range("A2").Select
   xlApp.ActiveWindow.FreezePanes = True
  End With
  .Close True 'save and close
 End With
 xlApp.Quit
 Set xlApp = Nothing
End Sub

           
         

Keywords: Freeze Panes through .VBS Script

	Title
1	Export Access Parameter Query to Ex…
2	Problem with Freeze Panes in Macro
3	Advanced freeze panes
4	Freeze pane help
5	Freeze Panes
6	freezing panes

Loading Advertisement...

20080716-EE-VQP-32 - Hierarchy / EE_QW_2_20070628

1. DanRollins 2,500
2. aikimark 2,000
2. ozo 2,000
2. leemae85 2,000
2. mlmcc 2,000
2. GrahamSkan 2,000
2. matthews... 2,000
2. oklit 2,000
2. ms-pro 2,000
2. BSonPosh 2,000
2. dstewartjr 2,000
2. jeverist 2,000
13. rorya 1,200
14. mikainz 1,000
15. johnnash... 375

1. Shift-3 23,740
2. brettdj 13,700
3. RobSamp... 9,875
4. SysExpert 7,875
5. chris_bot... 7,000
6. BlueDevilF... 6,750
7. BSonPosh 6,500
8. Psychotec 6,350
9. GrahamSkan 6,075
10. jeverist 6,000
11. sirbounty 5,000
12. knightEkni... 4,500
12. pari123 4,500
14. ahammar 4,000
14. zorvek 4,000
14. ozo 4,000
14. matthews... 4,000
14. kaufmed 4,000
14. suveer_p... 4,000
20. rorya 3,700
21. AmazingT... 3,600
22. khkremer 3,500
23. JOrzech 3,250
23. saurabh726 3,250
25. danaseaman 3,000

Freeze Panes through .VBS Script

Asked by smyers051972 in Automation, Microsoft Excel Spreadsheet Software

Tags: Microsoft, Office Excel, 2003, VB Script Question

About this solution