Access VBA to add borders to excel cells

[The_Captain_Slog]

HI

I am trying to add borders to cells in an excel worksheet programmaticlly from access vba

I can manage to open excel load my data from tables/queries into the worksheet, close save etc

what i cant do is update the borders it says that .borders(xledgetop) is invalid


colours formatting etc i can do but this is really annoying me now

any help appreciated

 

[boblarson]

Are you using early binding or late binding? If you are setting a reference and declaring

Dim appXL As Excel.Application

then it is early binding.

If it is

Dim appXL As Object

Then it is late binding.


If you are using late binding then you have to supply the values for any constants. But here's what it would be for early binding:

    With .Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With .Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With .Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With .Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With

It needs to be tied to the Application object.

 

[The_Captain_Slog]

cheers Bob

I was using late binding -- but had not added all the needed references to excel -- which didnt help lol

it seems to be working now