excel add sheet vbs

[teeheiman]

Im useing the excel com application to create a excel file but when I create the sheets it doesnt come in order, is there any way I can add the sheet so that it adds it after and not before the deafult 3?

wrk.sheets.add()

Thanks,
Billy

 

[teeheiman]

Ya ive went in and tried to make the vba but im not really sure how I would set it to go on the correct cell that I wanted to put the boarder on.

    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Thanks

 

[Legacy 98055]

To debug vbscript compatible code, simply use late-binding with all object variables... This code will compile in VBA and VBScript except for the ThisWorkbook reference. You will need to use CreateObject or GetObject or the Shell...

Sub Example()
    Dim wrk As Object
    Dim sh As Object
    
    Set wrk = ThisWorkbook
    
    
    
    Set sh = wrk.Sheets.Add(, wrk.Sheets(wrk.Sheets.Count))
    
    With sh.Range("A1").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

End Sub