Access.2007.VBA.Bibl..

.Borders(xlEdgeLeft).LineStyle = xlContinuous

.Borders(xlEdgeLeft).Weight = xlHairline

.Borders(xlEdgeLeft).ColorIndex = xlAutomatic

.Borders(xlEdgeTop).LineStyle = xlContinuous

.Borders(xlEdgeTop).Weight = xlHairline

.Borders(xlEdgeTop).ColorIndex = xlAutomatic

.Borders(xlEdgeBottom).LineStyle = xlContinuous

.Borders(xlEdgeBottom).Weight = xlHairline

.Borders(xlEdgeBottom).ColorIndex = xlAutomatic

.Borders(xlEdgeRight).LineStyle = xlContinuous

.Borders(xlEdgeRight).Weight = xlHairline

.Borders(xlEdgeRight).ColorIndex = xlAutomatic

.Borders(xlInsideVertical).LineStyle = xlContinuous

.Borders(xlInsideVertical).Weight = xlHairline

.Borders(xlInsideVertical).ColorIndex = xlAutomatic

.Borders(xlInsideHorizontal).LineStyle = xlContinuous

.Borders(xlInsideHorizontal).Weight = xlHairline

.Borders(xlInsideHorizontal).LineStyle = xlContinuous

End With

Apply a double border to the bottom of the column headings row:

wks.Rows(“3:3”).Select

With appExcel.Selection

.Borders(xlDiagonalDown).LineStyle = xlNone

.Borders(xlDiagonalUp).LineStyle = xlNone

.Borders(xlEdgeLeft).LineStyle = xlNone

.Borders(xlEdgeTop).LineStyle = xlNone

End With

With appExcel.Selection.Borders(xlEdgeBottom)

.LineStyle = xlDouble

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThick

End With

With appExcel.Selection

.Borders(xlEdgeRight).LineStyle = xlNone

.Borders(xlInsideVertical).LineStyle = xlNone

End With

Sort the data range by country and category:

strDataRange = “A3:I” & CStr(lngRows)

strKey1Range = “A4:A” & CStr(lngRows)

strKey2Range = “B4:B” & CStr(lngRows)

Debug.Print “Data range: “ & strDataRange

Analyzing Data with Excel 3