Formatting Excel within ActiveX script

  • Thread starter Thread starter ninel
  • Start date Start date
N

ninel

I am creating an excel report from within a DTS package using the
ActiveX script.

I have an excel file that contains column names across the top
(A1:AB1). -- I would like these to be bold.

Then from A2:wherever the data ends I would like to have different
color background on the alternating rows (if A2:AB2 is white, I'd like
A3:AB3 to be grey, and so on)

Does anyone have any code for this?
Thanks,
Ninel
 
I'm not all that familiar with ActiveX, but this is how you would do
that in VBA:

Sub ApplyShading()
n = 0
ActiveSheet.UsedRange.Rows.Select
For Each VisRow In Selection.Resize(,
1).SpecialCells(xlCellTypeVisible)
n = n + 1
If n Mod 2 = 0 Then
VisRow.EntireRow.Interior.ColorIndex = 15
End If
Next VisRow
Rows("1:1").Select
Selection.Font.Bold = True
End Sub
 
Back
Top