Bij export naar excel cell randen instellen

[MarcovD]

Hallo,

Ik wil de inhoud van een tabel exporteren naar excel. Ik gebruik daarvoor oa.de volgende code:
Set ExcelSheet = CreateObject("Excel.sheet")
(om een regel in excel vet te maken)
ExcelSheet.ActiveSheet.Rows(teller).Font.Bold = True
(Om verschillende velden te vullen in excel)
ExcelSheet.Application.Cells(rt, 1).Value = rs!vldtNummerDatum
ExcelSheet.Application.Cells(rt, 2).Value = rs!vldOmschrijving
ExcelSheet.Application.Cells(rt, 3).Value = rs!vldFactuurNummer

Bovenstaande werkt allemaal goed maar ik krijg het niet voor elkaar om de randen in te stellen zoals ik dat wil.
Weet iemand wat de code is om een rand om een bepaalde cell vet te maken ?

 

[Tardis]

Kijk in Excel VBA Help naar de Borders collectie.

Groet,

Tardis

 

[MarcovD]

Kijk in Excel VBA Help naar de Borders collectie.

Dat heb ik gedaan maar ik kom er niet uit.
Als ik bijvoorbeeld het volgende doe:
1) ExcelSheet.Application.Range("C22").Select
2) Selection.Borders(xlDiagonalDown).LineStyle = xlDouble
3) Selection.Borders(xlDiagonalUp).LineStyle = xlDouble
4) Selection.Borders(xlEdgeLeft).LineStyle = xlDouble
5) With Selection.Borders(xlEdgeTop)
6) .LineStyle = xlContinuous
7) .Weight = xlThin
8) .ColorIndex = xlAutomatic
9) End With

Dan krijg ik de melding "Object vereist"
Deze melding krijg ik op regel 2)

Ik heb echt al vanalles geprobeerd maar ik kom er echt niet uit.

 

[Tardis]

Hallo Marco,

ontbrekende verwijzing wellicht?
Neem anders een macro op in Excel, bekijk de code, vergelijk deze qua opbouw met jouw code.
Anders zou ik het ook niet weten.

Groet,

Tardis