Excel Border Line style works for the first time I run the code, later it shows some error

[vidyaduttk]

Hi,

I am trying to generate a automatic report in excel format by using VB6.

To draw borders in the excel file, I recorded a macro in one excel and found out the syntax from there.

It works perfectly for the first time, and if dont end the program and try to generate another report it gives me an error which says "The remote server machine does not exist or unavailable".

Anybody please help me with this..

Error message highlights the first line of this code.

 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

[shg]

Try replacing all of that with this:

    With ActiveWindow.RangeSelection.Borders
        .Weight = xlThin
        .LineStyle = xlContinuous
        .Color = vbBlack
    End With

[vidyaduttk]

Thank you very much for your reply.

But still facing the same problem..

It works for the first time, next time, it is giving me the same error.
The first line of your code is getting highlighted.

Is there some thind wrong with the way I am selecting the range. I am using this command to do it.

' nSheet.Cells(ro2, 3).Select'

[romperstomper]

If you are doing this in VB6, you aren't properly qualifying your Excel objects, which means you end up with an implicit Excel reference that can't be destroyed until your program terminates and that's why it remains in memory. You should have something like:

xlApp.ActiveWindow.RangeSelection.Borders

[vidyaduttk]

romperstomper:

Thank you very much!!

It worked!!