Smart questions
Smart answers
Smart people
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login




Remember Me
Forgot Password?
Join Us!

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

Join Tek-Tips
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.
Jobs from Indeed

Link To This Forum!

Partner Button
Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.
Just copy and paste the
code below into your site.

smgeorge99 (Programmer) (OP)
25 Aug 03 15:11
I have an Access database that contains code to generate Excel Workbooks/Sheets using information contained in the database.  The generated spreadsheets have various formatting and protection features enabled.  But what I can't figure out is how to freeze the panes in Excel from within the Access code while the workbook is being generated.  The users of the spreadsheet would like to be able to scroll through the page while the row & column headers remain visible.

The only property that seems to be even remotely close to what I'm trying to do is the Worksheet.ScrollArea property, but that doens't seem to do what I want.

Any help would be greatly appreciated.

Sean
Helpful Member!  GHolden (Programmer)
26 Aug 03 4:46
Hi, this is an example of how to freeze the panes...

Dim appExcel As New Excel.Application
Dim strPath As String

'set workbook path

strPath = "C:\Test\Test.xls"

With appExcel
 
  'open excel and make application visible
  .Visible = True
  
  'Open workbook "C:\Test\Test.xls"
  .Workbooks.Open strPath

  'move to cell where you wish to freeze the panes
  .Range("B2").Select

  'freeze panes
  .ActiveWindow.FreezePanes = True

  'Save workbook
  .ActiveWorkbook.Save

  'Quit excel
  .Quit

End With

Set appExcel = Nothing

Hope this helps.

There are two ways to write error-free programs; only the third one works.

smgeorge99 (Programmer) (OP)
26 Aug 03 7:20
Thanks!  One purple star for you!

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close