Freeze panes accross multiple tabs in excel

Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

All Forums

SQL Server 2008 Forums

Transact-SQL (2008)

Freeze panes accross multiple tabs in excel

Author

Topic

sqlbug76
Starting Member

2 Posts

Posted - 2012-10-18 : 16:21:54

Hello,

I'm new to sql server programming and need some help. I'm trying to freeze panes accross multiple tabs in a workbook, but can't seem to get my code working. The code I have below is only freezing the header row for the first worksheet. Any help with this is greatly appreciated as I have been struggling with this for some time.

-- Freeze Header

IF @lint_hr=0
BEGIN
SELECT @lvch_strErrorMessage='formatting the freeze header '
, @lint_objErrorObject=@lint_objExcel
, @lvch_command='Application.ActiveWorkbook.Sheets('+LTRIM(STR(@lint_NumberOfWorksheets))+').Rows("1:'+ LTRIM(STR(1))+'").Application.ActiveWindow.SplitColumn'
EXEC @lint_hr=sp_OASetProperty @lint_objExcel, @lvch_command, 0
END

IF @lint_hr=0
BEGIN
SELECT @lvch_strErrorMessage='formatting the freeze header '
, @lint_objErrorObject=@lint_objExcel
, @lvch_command='Application.ActiveWorkbook.Sheets('+LTRIM(STR(@lint_NumberOfWorksheets))+').Rows("1:'+ LTRIM(STR(1))+'").Application.ActiveWindow.SplitRow'
EXEC @lint_hr=sp_OASetProperty @lint_objExcel, @lvch_command, 1
END

IF @lint_hr=0
BEGIN
SELECT @lvch_strErrorMessage='formatting the freeze header '
, @lint_objErrorObject=@lint_objExcel
, @lvch_command='Application.ActiveWorkbook.Sheets('+LTRIM(STR(@lint_NumberOfWorksheets))+')Rows("1:'+ LTRIM(STR(1))+'").Application.ActiveWindow.FreezePanes'
EXEC @lint_hr=sp_OASetProperty @lint_objExcel, @lvch_command, 1
END

Subscribe to SQLTeam.com

SQLTeam.com Articles via RSS

SQLTeam.com Weblog via RSS

- Advertisement -

Resources