Excel

[learning_codes]

Hi,

I was able to export from Access to Excel with border. I'm still
struggling and hope you can help me out.

I have few excel reports that has variety of records.

- 1st Excel report has 100 records
- 2nd Excel report has 50 records
- 3rd Excel report has 1000 records

I was able to export 1st Excel report because I put "100" but couldn't
make the line up to 50 records or 1000 records.

I'm looking for starting point like A9 to end of the records to make
the border without having format the line every reports using :

*****************************************************************************************************

With xlSheet.Range(xlSheet.Cells(100, 1), _
xlSheet.Cells(1, objRST.Fields.Count)).Borders
.LineStyle = xlContinuous
.Weight = xlThin

.ColorIndex = xlAutomatic
End With

With xlSheet.Range(xlSheet.Cells(100, 1), _
xlSheet.Cells(1, objRST.Fields.Count)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

With xlSheet.Range(xlSheet.Cells(100, 1), _
xlSheet.Cells(1, objRST.Fields.Count)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

With xlSheet.Range(xlSheet.Cells(100, 1), _
xlSheet.Cells(1, objRST.Fields.Count)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

******************************************************************************