안녕하십니까? 전봉수 입니다.
스트링그리드나 디비그리드 내용을 엑셀로 저장시 필드 부분의 문자가 기록된 부분까지
테두리를 생성해야 하는데요 여러군데를 다니며 검색을 하여도 제가 생각하는 방법이 없어
질문을 드립니다. 고수님들 부탁 드립니다.
현재는 그냥 엑셀 파일에 매크로 함수로 처리하고 있습니다.

PC환경 Win_Xp , 델파이 6.0
= 엑셀 메크로 =
Sub Macro1()
'
' Macro1 Macro
' JbsKor이(가) 2008-09-02에 기록한 매크로
'

'
    Range("A5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub
엑셀 메크로 함수 입니다.
델파이 함수로 변경하여 주시면 고맙겠습니다.