Excel 2003 vbs script problem
 

Hi there

I'm trying to create a script which adds a new sheet with datas from other
sheets.
Some things work now but I have still an error and I realldy don't
understand why.

My script looks like this:
Set objXL = WScript.CreateObject ("Excel.Application")
....
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb7 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb7.Name = "KPI4-6"
objWb7.Tab.ColorIndex = 7
....
objWb7.Cells(6, 1).Value ="some text..."
objWb7.Cells(6, 1).Font.Italic = TRUE
objWb7.Cells(6, 1).Font.Size = 8
objWb7.Cells(6, 1).Font.ColorIndex = 6
objWb7.Cells(6, 1).Interior.ColorIndex = 34
....
objWb7.Columns("A:A").Select
objWb7.Selection.Columns.AutoFit
objWb7.Range("A1").Select
....


In the last part I get an error on objWb7.Columns("A:A").Select Error Code
800A03EC
the error syas someing like Select class Rang failed



Thanks in advance for any help

Best regards

Ralf

Excel 2003 vbs script problem
 

Instead of actually using a SELECTION, try this:

objWb7.Columns("A:A").EntireColumn.AutoFit

And I would not worry about the A1 Selection unless it is entirely
necessary.

Mark

"Ralf Meuser" wrote in message
...
Hi there

I'm trying to create a script which adds a new sheet with datas from other
sheets.
Some things work now but I have still an error and I realldy don't
understand why.

My script looks like this:
Set objXL = WScript.CreateObject ("Excel.Application")
...
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb7 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb7.Name = "KPI4-6"
objWb7.Tab.ColorIndex = 7
...
objWb7.Cells(6, 1).Value ="some text..."
objWb7.Cells(6, 1).Font.Italic = TRUE
objWb7.Cells(6, 1).Font.Size = 8
objWb7.Cells(6, 1).Font.ColorIndex = 6
objWb7.Cells(6, 1).Interior.ColorIndex = 34
...
objWb7.Columns("A:A").Select
objWb7.Selection.Columns.AutoFit
objWb7.Range("A1").Select
...


In the last part I get an error on objWb7.Columns("A:A").Select Error
Code 800A03EC
the error syas someing like Select class Rang failed



Thanks in advance for any help

Best regards

Ralf

Excel 2003 vbs script problem
 

You can only select a range on the selected/active worksheet.

Try adding:
objWb7.Select
objWb7.Columns("A:A").Select

But you don't need to select a range to work with it:

objWb7.Columns("A:A").Autofit
should work.

But
objWb7.Range("A1").Select
would fail. But you may not need this line if you're not selecting stuff.

Ralf Meuser wrote:

Hi there

I'm trying to create a script which adds a new sheet with datas from other
sheets.
Some things work now but I have still an error and I realldy don't
understand why.

My script looks like this:
Set objXL = WScript.CreateObject ("Excel.Application")
...
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb7 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb7.Name = "KPI4-6"
objWb7.Tab.ColorIndex = 7
...
objWb7.Cells(6, 1).Value ="some text..."
objWb7.Cells(6, 1).Font.Italic = TRUE
objWb7.Cells(6, 1).Font.Size = 8
objWb7.Cells(6, 1).Font.ColorIndex = 6
objWb7.Cells(6, 1).Interior.ColorIndex = 34
...
objWb7.Columns("A:A").Select
objWb7.Selection.Columns.AutoFit
objWb7.Range("A1").Select
...

In the last part I get an error on objWb7.Columns("A:A").Select Error Code
800A03EC
the error syas someing like Select class Rang failed

Thanks in advance for any help

Best regards

Ralf

--

Dave Peterson