Hi there


I created a wscipt like this


....
Set objXL = WScript.CreateObject ("Excel.Application")
....
objWb7.Tab.ColorIndex = 7
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb8 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb8.Name = "KPI4-7"
objWb8.Tab.ColorIndex = 8
....
objWb8.Cells(lig,1) = "HAPPY TEST"
objWb8.Columns("A:A").ColumnWidth = 3.9
objWb8.Range("A3:A12").Select
objWb8.Selection.Orientation = 90
objWb8.Selection.VerticalAlignment = xlCenter
objWb8.Selection.Interior.ColorIndex = 34


Every thing works fine. Only the 3 last Selection lines don't work.
What is wrong?

Thanks in davance for your help

Best regards

Ralf

hi Ralf,
Selection refers to the Application and not to a Worksheet, so try
objXl instead of objWb8
for the Selection.

Gruß
stefan

On 23 Mai, 11:59, "Ralf Meuser" wrote:
Hi there

I created a wscipt like this

...
Set objXL = WScript.CreateObject ("Excel.Application")
...
objWb7.Tab.ColorIndex = 7
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb8 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb8.Name = "KPI4-7"
objWb8.Tab.ColorIndex = 8
...
objWb8.Cells(lig,1) = "HAPPY TEST"
objWb8.Columns("A:A").ColumnWidth = 3.9
objWb8.Range("A3:A12").Select
objWb8.Selection.Orientation = 90
objWb8.Selection.VerticalAlignment = xlCenter
objWb8.Selection.Interior.ColorIndex = 34

Every thing works fine. Only the 3 last Selection lines don't work.
What is wrong?

Thanks in davance for your help

Best regards

Ralf

Hi Stefan

Thanks a lot

Now it works
Have a nice Week end
bye


Ralf
"stefan onken" a écrit dans le message de news:
...
hi Ralf,
Selection refers to the Application and not to a Worksheet, so try
objXl instead of objWb8
for the Selection.

Gruß
stefan

On 23 Mai, 11:59, "Ralf Meuser" wrote:
Hi there

I created a wscipt like this

...
Set objXL = WScript.CreateObject ("Excel.Application")
...
objWb7.Tab.ColorIndex = 7
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb8 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb8.Name = "KPI4-7"
objWb8.Tab.ColorIndex = 8
...
objWb8.Cells(lig,1) = "HAPPY TEST"
objWb8.Columns("A:A").ColumnWidth = 3.9
objWb8.Range("A3:A12").Select
objWb8.Selection.Orientation = 90
objWb8.Selection.VerticalAlignment = xlCenter
objWb8.Selection.Interior.ColorIndex = 34

Every thing works fine. Only the 3 last Selection lines don't work.
What is wrong?

Thanks in davance for your help

Best regards

Ralf