Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
.FreezePanes
Hello,
I have been trying without success to get the freezepanes to work from an ActiveX Script within an SQL DTS package. I keep getting the error that .FreezePanes is not supported. I have tried many variations of the following ..... ..Splitcolumn = 2 ..Splitrow = 11 ..FreezePanes = True any help would be much appreciated.... Thanks in advance, bob. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
.FreezePanes
FreezePanes is supported from the window object. so you need something like
this... ActiveWindow.FreezePanes = True -- HTH... Jim Thomlinson "Bob McClellan" wrote: Hello, I have been trying without success to get the freezepanes to work from an ActiveX Script within an SQL DTS package. I keep getting the error that .FreezePanes is not supported. I have tried many variations of the following ..... ..Splitcolumn = 2 ..Splitrow = 11 ..FreezePanes = True any help would be much appreciated.... Thanks in advance, bob. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
.FreezePanes
Jim,
Thanks for the reply.... I am working in an ActiveX Script within an SQL DTS package As far as I know, you can not use .Window or ActiveWindow... --that's the problem "Jim Thomlinson" wrote in message ... FreezePanes is supported from the window object. so you need something like this... ActiveWindow.FreezePanes = True -- HTH... Jim Thomlinson "Bob McClellan" wrote: Hello, I have been trying without success to get the freezepanes to work from an ActiveX Script within an SQL DTS package. I keep getting the error that .FreezePanes is not supported. I have tried many variations of the following ..... ..Splitcolumn = 2 ..Splitrow = 11 ..FreezePanes = True any help would be much appreciated.... Thanks in advance, bob. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
.FreezePanes
Bob,
How are you refering to the other Excel objects then ? Dim xlApp As Object 'Excel.Application xlApp.ActiveWindow.FreezePanes = True NickHK "Bob McClellan" bl... Jim, Thanks for the reply.... I am working in an ActiveX Script within an SQL DTS package As far as I know, you can not use .Window or ActiveWindow... --that's the problem "Jim Thomlinson" wrote in message ... FreezePanes is supported from the window object. so you need something like this... ActiveWindow.FreezePanes = True -- HTH... Jim Thomlinson "Bob McClellan" wrote: Hello, I have been trying without success to get the freezepanes to work from an ActiveX Script within an SQL DTS package. I keep getting the error that .FreezePanes is not supported. I have tried many variations of the following ..... ..Splitcolumn = 2 ..Splitrow = 11 ..FreezePanes = True any help would be much appreciated.... Thanks in advance, bob. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
.FreezePanes
Nick...
Thanks for the reply... Here is part of the code... with xlBook.Worksheets(1) .Range("A3") = "Vendor: " & rtrim(rsDetail.fields("Vendor")) .Range("A5") = "Machine Number: " & rtrim(rsDetail.fields("Unit")) .Range("A7") = "Date: " & rsDetail.fields("ReportDate") .Range("B3") = "ATLM Invoice#: " & rtrim(rsDetail.fields("AtlmInvoice")) .Range("B5") = "ATLM Ref#: " & rtrim(rsDetail.fields("Ref#")) .Range("B7") = rsDetail.fields("PaidOn") .RANGE("A3..D10").FONT.BOLD = TRUE iD = 11 .Columns("A").ColumnWidth = 33 .Columns("B").ColumnWidth = 15 .Columns("C").ColumnWidth = 11 'RATE .Columns("C").NumberFormat = "#,##0.00" .Columns("D").ColumnWidth = 11 'INVOICE NUMBER .Range("A9..E9").Interior.ColorIndex = 15 '===================================== ' I would like to add a .FreezePanes Here.... but so far an unable to. ' .Range("A11").Select ' .FreezePanes = True '===================================== .Range("A10") = "Date" .Range("B10") = "Refinery" .Range("C10") = "Rate" .Range("D10") = "Cust Inv#" "NickHK" wrote in message ... Bob, How are you refering to the other Excel objects then ? Dim xlApp As Object 'Excel.Application xlApp.ActiveWindow.FreezePanes = True NickHK "Bob McClellan" bl... Jim, Thanks for the reply.... I am working in an ActiveX Script within an SQL DTS package As far as I know, you can not use .Window or ActiveWindow... --that's the problem "Jim Thomlinson" wrote in message ... FreezePanes is supported from the window object. so you need something like this... ActiveWindow.FreezePanes = True -- HTH... Jim Thomlinson "Bob McClellan" wrote: Hello, I have been trying without success to get the freezepanes to work from an ActiveX Script within an SQL DTS package. I keep getting the error that .FreezePanes is not supported. I have tried many variations of the following ..... ..Splitcolumn = 2 ..Splitrow = 11 ..FreezePanes = True any help would be much appreciated.... Thanks in advance, bob. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
.FreezePanes
Bob,
Yes, because .FreezePanes is a member of the Window object, not the Worksheet object, as you are in a With block. So you need the fully qualified hierachy : xlApp.ActiveWindow.FreezePanes=True or xlApp.Windows(1).FreezePanes=True NickHk "Bob McClellan" bl... Nick... Thanks for the reply... Here is part of the code... with xlBook.Worksheets(1) .Range("A3") = "Vendor: " & rtrim(rsDetail.fields("Vendor")) .Range("A5") = "Machine Number: " & rtrim(rsDetail.fields("Unit")) .Range("A7") = "Date: " & rsDetail.fields("ReportDate") .Range("B3") = "ATLM Invoice#: " & rtrim(rsDetail.fields("AtlmInvoice")) .Range("B5") = "ATLM Ref#: " & rtrim(rsDetail.fields("Ref#")) .Range("B7") = rsDetail.fields("PaidOn") .RANGE("A3..D10").FONT.BOLD = TRUE iD = 11 .Columns("A").ColumnWidth = 33 .Columns("B").ColumnWidth = 15 .Columns("C").ColumnWidth = 11 'RATE .Columns("C").NumberFormat = "#,##0.00" .Columns("D").ColumnWidth = 11 'INVOICE NUMBER .Range("A9..E9").Interior.ColorIndex = 15 '===================================== ' I would like to add a .FreezePanes Here.... but so far an unable to. ' .Range("A11").Select ' .FreezePanes = True '===================================== .Range("A10") = "Date" .Range("B10") = "Refinery" .Range("C10") = "Rate" .Range("D10") = "Cust Inv#" "NickHK" wrote in message ... Bob, How are you refering to the other Excel objects then ? Dim xlApp As Object 'Excel.Application xlApp.ActiveWindow.FreezePanes = True NickHK "Bob McClellan" bl... Jim, Thanks for the reply.... I am working in an ActiveX Script within an SQL DTS package As far as I know, you can not use .Window or ActiveWindow... --that's the problem "Jim Thomlinson" wrote in message ... FreezePanes is supported from the window object. so you need something like this... ActiveWindow.FreezePanes = True -- HTH... Jim Thomlinson "Bob McClellan" wrote: Hello, I have been trying without success to get the freezepanes to work from an ActiveX Script within an SQL DTS package. I keep getting the error that .FreezePanes is not supported. I have tried many variations of the following ..... ..Splitcolumn = 2 ..Splitrow = 11 ..FreezePanes = True any help would be much appreciated.... Thanks in advance, bob. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with Excel FreezePanes from code | Excel Programming | |||
Problems specifying where "freezepanes" occurs using VBA | Excel Programming | |||
freezepanes | Excel Programming |