Formatting Bordes around an Excel Cell

[RayMilhon]

I have an Access 2010 Database That exports Data to several Worksheets in an Excel 2010 Spreadsheet

One of the requirements is that each cell needs to have a border on all 4 sides. I've tried everything I can find and nothing works. Anybody know how I can set the borders of the cell in Access VBA?

Some of the things I've tried

1. cell.BorderAround LineStyle = xlContinuous, Weight:=xlThin
2. cell.Borders (xlAll)


3. With Cell.Borders
.Linestyle = xlcontinuous
.Weight = xlMedium
.Color = RGB(255,255,255)
End With

[June7]

This is Excel automation. Must set and open Excel objects.

Bing: Access VBA Excel automation formatting

Here is one https://stackoverflow.com/questions/...cess-using-vba

[RayMilhon]

This is Excel automation. Must set and open Excel objects.

Bing: Access VBA Excel automation formatting

Here is one https://stackoverflow.com/questions/...cess-using-vba

I've done that. It all works perfectly each worksheet populates as it should the only issue I'm having is that the cells are supposed to have borders around each cell and they don't.

[June7]

This worked for me:

Sub getExcelData()
Dim xl As Excel.Application, wb As Excel.Workbook
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("C:\Users\June\Condos.xlsx")
xl.Visible = True
With wb.Worksheets("Sheet1")
    .Rows("1:1").Font.Bold = True
    With .Range("A1:E1").Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .Color = RGB(255, 255, 255)
    End With
End With
End Sub

Why a white border?

[RayMilhon]

Maybe that's my Error I thought RGB(255,255,255) was black

[June7]

Use RGB(0,0,0) or vbBlack

[RayMilhon]

Maybe that's my Error I thought RGB(255,255,255) was black

Yep That was it. Thanks for the help